关于R语言svm的bagging实现问题求解

@关于R语言caret包中bag函数的问题
library(caret)
credit<-read.csv(‘credit.csv’)
credit$default<-factor(credit$default,levels = c(1,2),labels = c(‘no’,‘yes’))
ctrl<-trainControl(method = ‘cv’,number = 10)
bagctrl<-bagControl(fit = svmBag$fit,predict=svmBag$pred,
aggregate = svmBag$aggregate)
svmbag<-train(default~.,data = credit,‘bag’,trControl=
ctrl,bagControl=bagctrl)
运行完报错如下，意思貌似是svm方法没用上，但我该定义的都定义了，该加的参数也都加了，还是报错，求解答

In addition: There were 11 warnings (use warnings() to see them)

warnings()
警告信息：
1: model fit failed for Fold01: vars=48 Error in fitter(btSamples[[iter]], x = x, y = y, ctrl = bagControl, v = vars, :
task 1 failed - “no applicable method for ‘predict’ applied to an object of class “c(‘ksvm’, ‘vm’)””
2: model fit failed for Fold02: vars=48 Error in fitter(btSamples[[iter]], x = x, y = y, ctrl = bagControl, v = vars, :
task 1 failed - “no applicable method for ‘predict’ applied to an object of class “c(‘ksvm’, ‘vm’)””
。。。。