## example using the promotergene data setdata(promotergene)## create test and training setind <- sample(1:dim(promotergene)[1],20)genetrain <- promotergene[-ind,]genetest <- promotergene[ind,]## train a support vector machinegene <- gausspr(Class~.,data=genetrain,kernel="rbfdot", kpar=list(sigma=0.015))gene
## predict gene type probabilities on the test setgenetype <- predict(gene,genetest,type="probabilities")genetype