# models are an output from meechua_reg
replicate_data(50,60,"Before","After",data=language_test)
mee_chua_sort <- mee_chua[with(mee_chua,order(mu)),]
meechua_reg(mee_chua_sort)
#models are the output from meechua_reg saved in the environment after running the function
meechua_plot(models)
Run the code above in your browser using DataLab