Galton's data and Normality

Galton…

library(HistData)
data(Galton)
names(Galton)

## [1] "parent" "child"

this data…

hist(Galton$child)

and now more elaborate

hist(Galton$parent, main = "Parent Height", xlab = "Height in inches", prob = T, 
    col = "blue")