#!/usr/bin/env Rscript
# Export data_with_tuition.RData for author bootstrap_MT.R (P2).
# Usage: Rscript 04-topics/rep-chv2011/Rcode/export_data_with_tuition.R

suppressPackageStartupMessages(library(here))

source(here("04-topics/rep-chv2011/Rcode/chv2011-data-prep.R"))
source(here("04-topics/rep-chv2011/Rcode/chv2011-table4a-core.R"))

path <- export_chv2011_table4a_data()
mode_info <- detect_chv2011_data_mode()

env <- new.env()
load(path, envir = env)

message("Exported: ", path)
message("Data mode: ", mode_info$mode, " — N = ", nrow(env$data), " rows, ",
        ncol(env$data), " columns.")