# NOT RUN {
if (require(mosaicData)) {
gf_fitdistr( ~ length, data = KidsFeet, inherit = FALSE) %>%
gf_dhistogram( ~ length, data = KidsFeet, binwidth = 0.5, alpha = 0.25)
gf_dhistogram( ~ length, data = KidsFeet, binwidth = 0.5, alpha = 0.25) %>%
gf_fitdistr()
}
# }
Run the code above in your browser using DataLab