楼主
下面的情况怎么解释呢?
> library(e1071)
> modal<-svm(Species~.,data=iris,
+ method="C-classification",kernel="radial",
+ cost=10,gamma=0.1)
> summary(model)
Error in summary(model) : object 'model' not found
> plot(model,iris,Petal.Width~
+ Petal.Length,slice=list(Sepal.Width=3,
+ Sepal.Length=4))
Error in plot(model, iris, Petal.Width ~ Petal.Length, slice = list(Sepal.Width = 3, :
object 'model' not found
> pre=predict(model,iris,type='class')
Error in predict(model, iris, type = "class") : object 'model' not found
> table(pre,iris$Species)
Error in table(pre, iris$Species) : object 'pre' not found
> library("klaR")
> data("B3")
> Bmod<-svmlight(PHASEN~.,data=B3,
+ svm.options="-c 10 -t 2 -g 0.1 -v 0")
Error in file(con, "r") : cannot open the connection
In addition: Warning messages:
1: running command 'svm_learn -c 10 -t 2 -g 0.1 -v 0 _train_1.dat _model_1.txt' had status 127
2: In file(con, "r") :
cannot open file '_model_1.txt': No such file or directory
> predict(Bmod,B3[c(4,9,30,60,80,120),
+ -1])
Error in predict(Bmod, B3[c(4, 9, 30, 60, 80, 120), -1]) :
object 'Bmod' not found
> library(e1071)
> modal.svm<-svm(a1~.,norm.data)
> preds<-predit(model.svm,norm.data)
Error: could not find function "predit"
> plot(preds~ scale(clean.algae$a1))
Error in eval(expr, envir, enclos) : object 'preds' not found
>
> library(rminer)
> set.seed(1234)
> svr<-fit(a1~.,norm.data,modal="svm")
> #利用模型进行预测
> norm.preds<-predict(svr,norm.data)
> #绘制预测值与真实值之间的散点图
> plot(norm.preds~scale(clean.algae$a1))
> #计算相对误差
> (nmse2<-mean((norm.preds-scale(clean.algae$a1))^2)/
+ mean((mean(scale(clean.algaea1))-scale(clean.algaea1))^2))
Error in scale(clean.algaea1) : object 'clean.algaea1' not found
|