# Initialize environment explicitly
#regtomean_env <- new.env(parent = emptyenv())
# Generate example data
language_test <- data.frame(
Before = rnorm(100, mean = 50, sd = 10),
After = rnorm(100, mean = 55, sd = 10)
)
# Replicate data
mee_chua <- replicate_data(0, 100, "Before", "After", data = language_test)
mee_chua <- mee_chua[order(mee_chua$mu), ]
# Perform regression analysis and store results
results <- meechua_reg(mee_chua)
mod_coef <- results$mod_coef
se_after <- results$se_after
# Call meechua_eff.CI
meechua_eff.CI(mod_coef, 100, se_after)
Run the code above in your browser using DataLab