getSegment: calculation segment
In tridentasf/segmentation: What the package does (short line)

1	getSegment(answers)

answers

##---- 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)
  }