data(phoneme)
mlearn<-phoneme[["learn"]]
glearn<-phoneme[["classlearn"]]
out=classif.knn.fd(mlearn,glearn,knn=c(3,5,7))
summary.classif.fd(out)
out2=classif.kernel.fd(mlearn,glearn,h=2^(0:5))
summary.classif.fd(out2)
out3=classif.kernel.fb(mlearn,glearn,h=2^(0:5),
par.basis = list(nbasis=c(7,17,27,37)))
summary.classif.fd(out3)Run the code above in your browser using DataLab