> attach(twins)
> plot(Foster, Biological)
> detach()
Based on this, a guess of 0.8 for the Pearson coefficient and a similar
value for the Spearman coefficient seem reasonable. A check can be done with
> cor(Foster, Biological) [1] 0.882 > cor(Foster, Biological,method="spearman") [1] 0.8858