data(phoneme)
mlearn<-phoneme[["learn"]]
glearn<-phoneme[["classlearn"]]
mtest<-phoneme[["test"]]
gtest<-phoneme[["classtest"]]
# ESTIMATION knn
out1=classif.knn(glearn,mlearn,knn=c(3,5,7))
summary.classif(out1)
# PREDICTION knn
pred1=predict.classif(out1,mtest)
table(pred1,gtest)
MisclasPredict <- sum(pred1 != gtest)/length(gtest)
MisclasPredict
# ESTIMATION kernel
h=2^(0:5)
out2=classif.kernel(glearn,mlearn,h=h)
summary.classif(out2)
# PREDICTION kernel
pred2=predict.classif(out2,mtest)
table(pred2,gtest)
MisclasPredict <- sum(pred2!= gtest)/length(gtest)
MisclasPredictRun the code above in your browser using DataLab