Exercise 7.11. Create a QQ plot for the Handspan data with an appropriate heading. Do you think that the data appear normal? Why?

qanda <- read.csv("selective_affinities.csv")
qanda_modified <- read.csv("selective_affinities_aftermodified.csv")

attach (qanda_modified)
qqnorm (y = Handspan, pch = 20)
qqline (Handspan, col = "red", lwd = 2)

detach(qanda_modified)

The plot shows that the data fits the normal distribution, because the points are close to a straight line.