```{r}
# Question 1
# (a)
commute_times <- c(14, 12, 20, 15, 19, 20, 28, 20, 18, 20)
mean_commute_time <- mean(commute_times)
shorter_than_mean <- commute_times[commute_times < mean_commute_time]
shorter_than_mean
```
```{r}
# (b)
std_dev <- sd(commute_times)
Show more…