history/final_modeling_scratch.R

In fdrennan/test: What the Package Does (One Line, Title Case)

# data <- readRDS('data.rda')
# # library(test)
# library(glue)
# library(tableHTML)
# library(shinyjs)
# library(DT)
# library(shinycssloaders)
# library(writexl)
# library(emmeans)
# library(rlist)
#
# devtools::load_all()
#
# tranformed_data = data$transformed_data
# #debug(prism_output)
# prism_output(tranformed_data) #Still needs a little bit of work
# vizualization(transformed_data = data$transformed_data,
#               power = 2)
# #data <- final_modeling(data$transformed_data, data, toi='Week6')