Galton's data

galton….

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

## [1] "parent" "child"

more text

hist(Galton$child)

more text

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

finish