R/clean_P.R

In mwheymans/psfmi: Prediction Model Pooling, Selection and Performance Evaluation Across Multiply Imputed Datasets

#' Function to clean variables
#' 
#' @author Martijn Heymans, 2020
#' @keywords internal
#'
#' @export
clean_P <-
  function(variable){
    variable <-
      gsub(paste(c("factor", "[()]", "strata",
                   "rcs", ",", " ", 
                   c(3:7)), collapse = "|"),
           "", variable)
    return(variable)
}