Assignment - 5

Objective: \"acceleration_earth_gravity_measurement.csv\" %>% read_csv() %>% gather(key = student, value = measured_value_in_meter_per_sec_sq) %>% separate(student, into =c(\"S\", \"student\")) %>% select(-S) %>% mutate(g = 9.8) %>% mutate(error = measured_value_in_meter_per_sec_sq - g ) %>% arrange(error %>%…