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(
f = rf(500, df1 = 3, df2 = 47),
g = rgamma(500, 3, 10)
)
gf_dhistogram(~g, data = Dat) |>
gf_fitdistr(dist = "dgamma", linewidth = 1.4)
fitted_density <- mosaicCore::fit_distr_fun(~g, data = Dat, dist = "dgamma")
gf_dhistogram(~g, data = Dat) |>
gf_fun(fitted_density(x) ~ x, inherit = FALSE)
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