if (FALSE) {
## load the Growth dataset
dataf = dataf.growth()
learn = c(head(dataf$dataf, 49), tail(dataf$dataf, 34))
labels= c(head(dataf$labels, 49), tail(dataf$labels, 34))
test = tail(head(dataf$dataf, 59), 10) # elements 50:59. 5 girls, 5 boys
c = ddalphaf.train (learn, labels, classifier.type = "ddalpha")
classified = ddalphaf.classify(c, test)
print(unlist(classified))
}
Run the code above in your browser using DataLab