Displaying 1 result from an estimated 1 matches for "cbs38s".
2007 Apr 16
1
My First Function: cryptic error message
...e <- probands$id %in% ids
training <- subset(probands, probands$id %in% ids)
testing <- subset(probands, ! 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,...