Create quizz_1.R

calculate mean,complete, and corr