Galton's normality

galton data….

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

## [1] "parent" "child"

more…

hist(Galton$child)

even more

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

even more….