R/YoModels.R

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

#' YoModels
#' 
#' This is a really dumb function that just prints the text expression of our models so we can copy and paste them
#' 
#' 
#' 
#' @export


YoModels <- function(){
  mods <- list()
  t1 <- quote(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(sprWL~SP+SPTR*D0F1+H1A0+MLTR:D0F1+ML:SPTR+PBR,data = train,family=binomial))
  mods[[1]] <- t1
  mods[[2]] <- g1
return(mods)
  }