Lecture6Rcode.R