library("kernlab")
library(foreign)
biomass22<-read.csv("F:/learning/biomass22.csv")
  ind<-sample(2,nrow(biomass22),replace=TRUE,prob=c(0.8,0.2))
  traindata<- biomass22 [ind==1,]
testdata<- biomass22 [ind==2,]
biomass1 <- ksvm(biomass~., data = biomass22, kernel = "rbfdot", kpar = list(sigma = 0.1), C = 10)
print(biomass1)

pre_svm<-read.csv("F:/learning/biomass2012.csv", header = TRUE)
predict(biomass1, pre_svm)

预测出来的结果都是一样的是什么原因呢