if (FALSE) {
# 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