# ExamSco Example -- examsco1.R source code. # Enter data studid = c(1138, 1422, 2293, 2483, 2568, 3320, 3484, 3610, 3859, 4738, 5187, 6247, 6992, 7123, 7156, 8471) name = c("William", "Chloe", "Michael", "Anthony", "Andrew", "Sophia", "Emily", "Alexander", "Joshua", "Natalie", "Elizabeth", "Isabella", "Daniel", "Jacob", "Samantha", "Olivia") gender = c("M", "F", "M", "M", "M", "F", "F", "M", "M", "F", "F", "F", "M", "M", "F", "F") year = c(3, 1, 4, 4, 1, 4, 3, 2, 1, 2, 3, 1, 3, 1, 2, 3) midterm = c(82, 75, 93, 97, 74, 99, 91, 78, 19, 85, 90, 89, 82, 75, 82, 89) final = c(84, 75, 95, 98, 55, 98, 98, 79, 0, 79, 91, 88, 93, 73, 80, 87) # Print data print("studid:") print(studid) print("name:") print(name) print("gender:") print(gender) print("year:") print(year) print("midterm:") print(midterm) print("final:") # Compute and print exam average. examave = (midterm + final) / 2 print("Exam average:") print(examave) # Print descriptive statistics for examave. print("mean:") print(mean(examave)) print("sd:") print(sd(examave)) print("min:") print(min(examave)) print("max:") print(max(examave))