mean, sd, summary

mm <- c(85, 40, 120, 60, 90)
print(mean(mm))
print(sd(mm))
print(summary(mm))

units <- c(12, 8, 5, 4, 3)
print(median(units))
print(range(units))

print(quantile(c(85, 40, 120, 60, 90)))

print(cor(c(12, 8, 5), c(85, 40, 120)))