R/main_function.r

In sooyongl/ESS:

#' @include tab_function.r
NULL

#' run_ESS
#' @export
runESS <- function(data_list, grade, ald, location, WESS, modal, threshold) {

  res_ess <- new("ess")

####################################################
  res_ess@information <-
    get_data_info(
      data_list,
      grade = grade,
      ald = ald,
      location = location,
      WESS = WESS,
      modal = modal,
      threshold = threshold
    )
  res_ess@tab0 <- gen_tab0(res_ess@information)
  res_ess@tab1 <- gen_tab1(res_ess@tab0, res_ess@information) # args(gen_tab1)
  res_ess@tab2 <- gen_tab2(res_ess@tab1, res_ess@information)
  res_ess@tab3 <- gen_tab3(res_ess@tab1, res_ess@information)
  res_ess@tab4 <- gen_tab4(res_ess@tab1, res_ess@tab2, res_ess@tab3, res_ess@information)

  return(res_ess)
}


#' Update ESS

updateESS <- function(ess_class, manual_cp) {
  # manual_cp <- list(c(2,7,10))

  ess_class@tab1 <- update_tab1(ess_class@tab0, ess_class@tab1, ess_class@information, manual_cp)
  ess_class@tab2 <- update_tab2(ess_class@tab1, ess_class@information)

  ess_class@tab3 <- gen_tab3(ess_class@tab1, ess_class@information)
  ess_class@tab4 <- gen_tab4(ess_class@tab1, ess_class@tab2, ess_class@tab3, ess_class@information)

  return(ess_class)
}