无法在r中加载svm模型

Question

我已生成SVM模型并将其保存到.rds文件，我使用以下语法保存

fit <-svm(ResolutionTime ~ ., data = complete)

retval <- list(model = fit)

saveRDS(retval, "./model.rds")

但是当我加载并尝试使用以下语法预测新数据的结果时，我收到错误

UseMethod出错（＆＃34;预测＆＃34;）：   没有适用的方法来预测＆＃39;适用于班级＆＃34; c（＆＃39; svm.formula＆＃39;，＆＃39; svm＆＃39;）＆＃34;

model <- readRDS("./model.rds")

ResolutionTimePrediction= predict(model$model,test)

任何人都可以在这里帮助我，我试图用不同的方法保存模型，如下所示，但它无法正常工作

save(model, file = "my-svm.RData")