R script quiz 3