用R做SVM支持向量机，tune函数交叉验证时报错变数不一致，求问大佬们

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> dat<-read.csv(file="C:\\Users\\lenovo\\Desktop\\财务报表分析与ST预测.csv")> plot(dat[1:7],dat$ST)> train=sample(nrow(dat),342)> svmfit=svm(dat[train,8]~.,data=dat[train,],kernel="radial",gamma=1,cost=1)> plot(svmfit,dat[train,])> summary(svmfit)Call:svm(formula = dat[train, 8] ~ ., data = dat[train, ], kernel = "radial",     gamma = 1, cost = 1)Parameters:   SVM-Type:  eps-regression  SVM-Kernel:  radial        cost:  1       gamma:  1     epsilon:  0.1 Number of Support Vectors:  293> set.seed(1)> turn.out<-tune(svm,dat[train,8]~.,data = dat[train,],kernel="radial",+                ranges=list(cost=c(0.1,1,10,100,1000),+                gamma=c(0.5,1,2,3,4)))Error in model.frame.default(formula, data) : 变数的长度不一样('ARA')

数据dat没有缺失的值
> str(dat)'data.frame':        684 obs. of  8 variables: $ ARA   : num  0.1923 0.2201 0.3253 0.0257 0.5336 ... $ ASSET : num  19.9 20.9 19.4 21.4 21.6 ... $ ATO   : num  0.0052 0.0056 0.0166 0.0028 0.2552 ... $ ROA   : num  0.08771 0.01682 0.04247 0.01815 0.00415 ... $ GROWTH: num  -0.951 -0.943 -0.937 -0.853 -0.817 ... $ LEV   : num  0.446 0.399 0.303 0.758 0.727 ... $ SHARE : num  26.9 39.6 26.5 60.2 54.2 ... $ ST    : int  0 0 0 0 1 0 0 0 1 0 ...各种试了很久，求问大家这是什么情况呀，明天就要交论文了呜呜呜

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

您好，如果您的求助没有解决，请到项目交易发布需求，会有更快更专业的用户帮助您 https://bbs.pinggu.org/prj/