1-3 R script done
4-6 R script done
4-6 R script done
assigment done