# NOT RUN {
# }
# 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)
# }
Run the code above in your browser using DataLab