getSegment <- function(answers) {
#load("data/segment_fit.rda")
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.