The scatterplot was done using the following R code:

#Enter data x=c(8,24,17,18,16,12,15,13,5,3,12,20,28,6,6,34,6,17,68,7,4,33,23,5,9,46,14,17,18,17,5,10,5,27,17) y=c(12.5,20.8,11.8,16.7,18.7,8.33,20,23.1,0,0,0,10,25,0,0,14.7,0,23.5,14.7,14.2,0,3,17.4,0,0,23.9,21.4,5.9,38.9,11.8,0,10,0,33.3,29.4) #Do scatterplot of y on x, and check normality par(mfrow=c(3,1)) plot (x,y,xlab="Species richness",ylab="Percentage rare species",main="% rare spp. vs species richness") qqnorm(x,main="Norm Q-Q plot (X)") qqline(x) qqnorm(y,main="Norm Q-Q plot (Y)") qqline(y) par(mfrow=c(1,1))