将kyphosis的数据转换为libsvm数据格式的R语言实现

svm.str<-paste(as.integer(kyphosis$Kyphosis)," 1:",kyphosis$Age," 2:",kyphosis$Number," 3:",kyphosis$Start,sep="")
write.table(svm.str,"c:/tmp/kyphosis_svm.txt",quote=FALSE,eol="\n",row.names=FALSE,col.names=FALSE)