powered by
Density Comparison Plot
plot_density(x, fits, nbins)
numeric vector of sample data
a list object produced from fit_univariate, fit_empirical, or fit_univariate_man
number of bins for histogram
ggplot of empirical histogram of x compared to theoretical density distributions
# NOT RUN { library(ggplot2) set.seed(37) x <- rgamma(10000, 5) dists <- c('gamma', 'lnorm', 'weibull') fits <- lapply(dists, fit_univariate, x = x) plot_density(x, fits, 30) + theme_bw() # }
Run the code above in your browser using DataLab