# 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(50, 60, "Before", "After", data = language_test)
mee_chua_sort <- mee_chua[order(mee_chua$mu), ]
# Perform regression analysis
results <- meechua_reg(mee_chua_sort)
# Plot models
meechua_plot(results$models)
Run the code above in your browser using DataLab