predict.gam模型中的r mgcv误差

我的测试数据和我的trining数据有不同的因素级别。我尝试合并级别，但不起作用

library(mgcv)
library(ff)

myData <- read.csv.ffdf(file = "myFile.csv")
myData$myVar <- as.factor(myData$myVar)
testData <- read.csv(file = "test.csv")
testData$myVar <- as.factor(testData$myVar)
form <- dependent ~ .
model <- gam(form, data=myData)
model$xlevels[["myVar"]] <- union(model$xlevels[["myVar"]], levels(testData$myVar))
predictedData <- predict(model, newdata=testData)

库（mgcv）
图书馆（ff）
myData如果训练数据中没有因子水平，则无法预测它们。故事结束了。