@关于R语言caret包中bag函数的问题
library(caret)
credit<-read.csv(‘credit.csv’)
credit
d
e
f
a
u
l
t
<
−
f
a
c
t
o
r
(
c
r
e
d
i
t
default<-factor(credit
default<−factor(creditdefault,levels = c(1,2),labels = c(‘no’,‘yes’))
ctrl<-trainControl(method = ‘cv’,number = 10)
bagctrl<-bagControl(fit = svmBag
f
i
t
,
p
r
e
d
i
c
t
=
s
v
m
B
a
g
fit, predict = svmBag
fit,predict=svmBagpred,
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’)””
。。。。