View source: R/estimationfunctions.R
| length_biased_dist | R Documentation |
Calculate length-biased distribution from discrete length-unbiased distribution starting at 1
length_biased_dist(dist)
dist |
vector of probabilities of distribution to transform |
vector of probabilities of transformed distribution
# geometric distribution starting in 1 and cutoff at 70 with mean at about 8.
geom.dist <- create_dist_vec(geom_dist_fct, max.dist = 70)
# calculate mean
sum(1:length(geom.dist)*geom.dist)
# plot original distribution
plot(geom.dist)
geom.dist.lb <- length_biased_dist(geom.dist)
# plot length biased distribution
plot(geom.dist.lb)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.