svm.R-20170824

library(e1071)
m1<-svm(xcovpart2,ypart)
summary(m1)
ypart.pre3<-predict(m1,xcovpart2)
resi3=abs(ypart-ypart.pre3)/ypart
mean(resi3) #誤差
yall.pre3=predict(m1,newdata=data.frame(xcovall2))

m2<-svm(xcovpart,ypart)
summary(m2)
ypart.pre4<-predict(m2,xcovpart)
resi4=abs(ypart-ypart.pre4)/ypart
mean(resi4) #誤差
yall.pre4=predict(m2,newdata=data.frame(xcovall))
write.table(yall.pre3, file = "/Users/vicky/Documents/code/R/yallpre3.csv")

library(class)
knn(xcovpart2,xcovall2,y,k=1,prob=TRUE)