## create kernel object for normalized spectrum kernel
specK5 <- spectrumKernel(k=5)
## load data
data(TFBS)
## perform training - feature weights are computed by default
model <- kbsvm(enhancerFB, yFB, specK5, pkg="LiblineaR",
svm="C-svc", cost=c(1,15,50,100), cross=10,
perfParameters="ALL", showProgress=TRUE)
## show model selection result
mres <- modelSelResult(model)
mres
## extract grid errors
gridErrors(mres)
## extract other performance parameters
performance(mres)
Run the code above in your browser using DataLab