data(phoneme)
mlearn<-phoneme[["learn"]]
glearn<-phoneme[["classlearn"]]
vbasis<-seq(7,27,len=3)
h<-2^(seq(0,3))
out<-classif.kernel.fb(mlearn,glearn,h=h,par.basis=list(nbasis=vbasis))
out$prob.classification
1-out$misclassificationRun the code above in your browser using DataLab