withr::with_seed(50, {
x <- ssd_rburrIII3(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rgamma(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rgompertz(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rinvpareto(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rlgumbel(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rllogis_llogis(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rllogis(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rlnorm_lnorm(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rlnorm(10000)
})
hist(x, breaks = 1000)
withr::with_seed(50, {
x <- ssd_rmulti(1000, gamma.weight = 0.5, lnorm.weight = 0.5)
})
hist(x, breaks = 100)
# multi fitdists
fit <- ssd_fit_dists(ssddata::ccme_boron)
ssd_rmulti_fitdists(2, fit)
withr::with_seed(50, {
x <- ssd_rweibull(10000)
})
hist(x, breaks = 1000)
Run the code above in your browser using DataLab