problem-3.14

problem-3.14  The correlations are found using cor():
> names(galton)
[1] "child"  "parent"
> with(galton, cor(child,parent))
[1] 0.4588
> with(galton, cor(child,parent,method="spearman"))
[1] 0.4251