# 1
t.test(x = car_data$Distance, alternative = c("less"), mu = 450)

# 2
t.test(Distance~prov, data = car_data, alternative = c("two.sided"),mu = 0, paired = FALSE)