# Entering summer temperature data into R

summer.temps <- c(59,81,85,75,81,77,92,83,92,76,74,73,57,68,80,69,
83,78,87,88,93,71,73,76,81,82,73,64,80,79)

# Entering dental measurement data (for boys) into R

boys <- c(31,26.5,27.5,27,26,28.5,26.5,25.5,26,31.5,25,28,29.5,26,30,25)

qqnorm(summer.temps)

qqnorm(boys)

# Which data set is more likely to have come from a normal distribution?

# Checking normality for both groups of the sleeping data:
data(sleep); attach(sleep)
qqnorm(extra[group==1])

qqnorm(extra[group==2])