使用包e1071进行调谐时出错

Question

我尝试tune使用e1071中使用this tutorial方法使用包> head(gps_rg5,16) Weather sex age occupation income weekday weekend age group rg 1 6 2 57 3 1 7 1 3 0.035725277 2 6 2 32 1 5 6 1 2 1.693898548 3 1 2 63 3 1 4 0 4 0.009012839 4 6 2 65 3 2 6 1 4 0.014902879 5 6 2 57 3 2 7 1 3 0.045594146 6 6 2 76 3 1 4 0 5 0.003531616 7 6 1 65 3 2 4 0 4 0.001575542 8 4 2 57 3 3 6 1 3 0.009384690 9 4 2 52 3 2 6 1 3 0.033322905 10 4 2 56 3 2 6 1 3 0.011879944 11 4 2 56 3 2 7 1 3 0.008266786 12 4 1 63 3 2 6 1 4 3.055594036 13 1 2 42 1 2 1 0 2 0.029010174 14 4 2 42 1 2 6 1 2 0.000933115 15 1 2 66 3 2 5 0 4 2.342416927 16 6 1 79 3 2 4 0 5 2.891190912 进行回归的SVM模型。这是数据

svr1<-tune(svm,rg~.,data=train,ranges=list(cost=2^(2:9),epsilon=seq(0.01,10,0.1)))

这是调整的代码：

Error in predict.svm(ret, xhold, decision.values = TRUE) : 
  Model is empty!

代码返回错误

Save to Dropbox

这是训练数据集的结构：

任何答案都将不胜感激！ 非常感谢!!