R/csu_eapc.R

In Rcan: Cancer Registry Data Analysis and Visualisation

csu_eapc <-
  function(df_data,
  var_rate="asr",
  var_year="year",
  group_by= NULL,
  var_eapc="eapc",
	CI_level = 0.95) {
  
  
  core.error_variable(df_data, var_rate, csu_eapc)
	core.error_variable(df_data, var_year, csu_eapc)
	core.error_time_variable(df_data, var_year, group_by, csu_eapc)
  
    #call core function 
	df_data <- core.csu_eapc(df_data, var_rate, var_year, group_by, var_eapc, CI_level)
    
	cat(paste0("EAPC with "),CI_level*100,("% CI level have been computed\n"))
    
    return(df_data)
    
  }