R/PrintModels.R

In dennist2/MerlinV2: What the Package Does (One Line, Title Case)

#' PrintModels 
#' 
#' Dumb function that prints model formulas
#' 
#' @export



PrintModels <- function(){
  mods <- list()
  t1 <- quote(Tree <- C50::C5.0(x = train[,c("ML","SP","MLTR","SPTR","PBR","SPTDR","MLTDR","H1A0")],y = train$strWL,control = C50::C5.0Control(minCases = 1)))
  g1 <- quote(GLM <- glm(strWL~SP+SPTR*D0F1+H1A0+MLTR:H1A0+ML:MLTDR+PBR,data = train,family=binomial))
  mods[[1]] <- t1
  mods[[2]] <- g1
  return(mods)
}