using DataFrames, RDatasets

vn = dataset("Ecdat","VietNamI")

days_ill = vn[:Illdays]

delete!(vn,:Illdays)

# Pkg.add("DecisionTree")
using DecisionTree

signals = convert(Array,days_ill)
features = convert(Array,vn);

methods(build_forest)

model = build_forest(signals,features,int(sqrt(length(features[1,:]))),10,.9)

predictions = apply_forest(model,features)

confusion_matrix(signals,predictions)