R/ParseuserFormula.R

In ziyili20/caROC: Continuous biomarker evaluation with adjustment of covariates

ParseuserFormula <- function(userFormula) {
    formula2 <- gsub(" ", "", userFormula)
    tt1 <- unlist(strsplit(formula2, split = "~"))
    allvar <- unlist(strsplit(tt1[2], split = "\\+"))
    return(list(response = tt1[1],
                allvar = allvar))
}