Calculate mean of length-unbiased distribution from discrete length-biased distribution starting at 1
vector of probabilities of length-biased distribution
mean of length-unbiased distribution
1 2 3 4 5 6 7 8 9
# 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 of distribution sum(1:length(geom.dist)*geom.dist) # create length-biased distribution in same format geom.dist.lb <- length_biased_dist(geom.dist) # recalculate mean of original distribution based on length-biased distribution length_unbiased_mean(geom.dist.lb)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.