Quiz 2

Question 1a

quiz2 <- c(366, 327, 274, 292, 274, 230, 301, 315, 285, 299, 320, 249)
mean(quiz2)

## [1] 294.3333

median(quiz2)

## [1] 295.5

sd(quiz2)

## [1] 36.26752

summary(quiz2)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   230.0   274.0   295.5   294.3   316.2   366.0

Question 1b

boxplot(quiz2, horizontal = TRUE, main= "Effects of Diet on Cholesterol Levels", xlab= "Cholesterol Level (mg/dl)")

Question 1c

hist(quiz2, main="Effects of Diet on Cholesterol Levels", xlab="Cholesterol Levels (mg/dl)", ylab="Frequency")

Question 2a

toothSe <- c(140.2, 133.3, 135.3, 127.8, 108.7, 146.2, 131.2, 145.5, 163.2, 136.6, 112.6, 140.5)
liverSe <- c(6.2, 6.8, 7.9, 8, 9.3, 10, 10.6, 11, 12.4, 14.5, 15.3, 22.1)
plot(toothSe, liverSe, main="Tooth Selenium and Liver Selenium Concentrations in Bulega Whales", xlab= "Tooth Selenium Concentration (ug/g)", ylab="Liver Selenium Concentration (ug/g)")
fit <- lm(liverSe~toothSe)
abline(fit)