k3 <- read.table("c:/jarasumR/kbo_batterbox.txt", header=TRUE, sep=",") install.packages("party") # sample only 10 instances k4 <-head(k3,10) require(party) k06 <- ctree(hr ~ SO + games + atbat + run + single + double + triple + rbi + steal + ballfour + rhit + rlong + robase, controls = ctree_control( mincriterion = 0.5, minsplit = 2, minbucket = 3) , data=k4) # minbu..
