Decreased previous observed cases back to scale

Usage,
decrease_cases(calculated_cases, pos_rate, m = 10.83, k = 0.5)

Arguments

calculated_cases

numeric, the calculated cases

pos_rate

numeric, the observed positivity rate

m

scaling factor

k

scaling factor with default of 1/2 on range [0,1]