Lab7 Chi-två.R