Displaying 1 result from an estimated 1 matches for "cbs38_".
Did you mean:
cbs38s
2007 Apr 16
1
My First Function: cryptic error message
...bands, ! probands$id %in% ids)
# formula for the rpart model
adhdcbin <- factor(probands$adhdcbin, ordered = TRUE,
labels = cbind("Control","ADHD" ))
cbs38s <- as.formula(paste("adhdcbin ~",
paste(names(probands[grep("cbs38_..*",names(probands))]),
collapse = "+")))
# fitting the rpart model
rpart_training <- rpart(cbs38s,
data = training,
method = "class")
X11 (); plot(rpart_training);text(rpart_training)
rpart_trai...