Last chance! 50% off unlimited learning
Sale ends in
## S3 method for class 'PredictionProfile':
sequences(object)
sequences
: sequences for which profiles were generated
profiles
: prediction profiles
baselines
: baselines for the plot, this is the model offset
distributed to all sequence positions## create kernel object for gappy pair kernel
gappy <- gappyPairKernel(k=1,m=11, annSpec=TRUE)
## load data
data(CCoil)
## perform training - feature weights are computed by default
model <- kbsvm(ccseq, yCC, gappya, pkg="LiblineaR", svm="C-svc", cost=15)
## compute prediction profiles
predProf <- getPredictionProfile(ccseq, gappya,
featureWeights(model),
modelOffset(model))
predProf15 <- predProf[c(1,5),]
sequences(predProf15)
profiles(predProf15)
baselines(predProf15)
Run the code above in your browser using DataLab