# NOT RUN {
# }
# NOT RUN {
# Get the Sonar data set
library(mlbench)
data(Sonar)
Sonar$Class <- 1*(Sonar$Class == "M")
#Train hierachical classifier
mc <- GMVEBSWiMS(Class~.,Sonar)
#report the classification
pb <- predict(mc,Sonar)
print(table(1*(pb>0.0),Sonar$Class))
# }
Run the code above in your browser using DataLab