1 | getSegment(answers)
|
answers |
1 2 3 4 5 6 7 8 9 10 11 12 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (answers)
{
segment_fit <- rpart(Segments ~ sq03 + q24_1 + q24_6 + q24_7 +
q24a_10 + q44a_12, method = "class", data = seurat)
pred <- predict(segment_fit, newdata = answers, type = "class")
return(pred)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.