length_unbiased_mean: Calculate mean of length-unbiased distribution from discrete...

In prevtoinc: Prevalence to Incidence Calculations for Point-Prevalence Studies in a Nosocomial Setting

Description

Calculate mean of length-unbiased distribution from discrete length-biased distribution starting at 1

Usage

length_unbiased_mean(dist)

Arguments

dist	vector of probabilities of length-biased distribution

Value

mean of length-unbiased distribution

Examples

# 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)

prevtoinc documentation built on June 18, 2019, 5:05 p.m.