## Not run:
# data(phoneme)
# mlearn<-phoneme[["learn"]][1:100]
# glearn<-phoneme[["classlearn"]][1:100]
#
# # ESTIMATION knn
# out1=classif.knn(glearn,mlearn,knn=3)
# summary.classif(out1)
#
# # PREDICTION knn
# mtest<-phoneme[["test"]][1:100]
# gtest<-phoneme[["classtest"]][1:100]
# pred1=predict.classif(out1,mtest)
# table(pred1,gtest)
#
# # ESTIMATION kernel
# h=2^(0:5)
# # using metric distances computed in classif.knn
# out2=classif.kernel(glearn,mlearn,h=h,metric=out1$mdist)
# summary.classif(out2)
# # PREDICTION kernel
# pred2=predict.classif(out2,mtest)
# table(pred2,gtest)
# ## End(Not run)
Run the code above in your browser using DataLab