# NOT RUN {
gf_fitdistr(~length, data = mosaicData::KidsFeet, inherit = FALSE) %>%
gf_dhistogram(~length, data = mosaicData::KidsFeet, binwidth = 0.5, alpha = 0.25)
gf_dhistogram(~length, data = mosaicData::KidsFeet, binwidth = 0.5, alpha = 0.25) %>%
gf_fitdistr()
set.seed(12345)
Dat <- data.frame(g = rgamma(500, 3, 10), f = rf(500, df1 = 3, df2 = 47))
gf_dhistogram(~g, data = Dat) %>%
gf_fitdistr(dist = "dgamma")
gf_dhistogram(~g, data = Dat) %>%
gf_fun(mosaicCore::fit_distr_fun(~g, data = Dat, dist = "dgamma"))
gf_dhistogram(~f, data = Dat) %>%
gf_fitdistr(dist = "df", start = list(df1 = 2, df2 = 50))
# fitted parameters are default argument values
args(
mosaicCore::fit_distr_fun(~f,
data = Dat, dist = "df",
start = list(df1 = 2, df2 = 50)
)
)
args(mosaicCore::fit_distr_fun(~g, data = Dat, dist = "dgamma"))
# }
Run the code above in your browser using DataLab