AEQcalc: SUB AEQcalc

In eeholmes/VRAP: VRAP for RER and Viability Computations

SUB AEQcalc

Description

Compute the AEQs for each age group. Original VB code:

Usage

AEQcalc(input)

Details

TAB: what are AEQs? Adult Equivalents! Sub AEQcalc() Dim TmpA As Double 'TAB: added line Dim TmpS As Double 'TAB: added line Dim Age As Integer 'TAB: added line TmpA = 0 TmpS = 0 For Age = MaxAge AEQ(Age) = MatRate(Age) + TmpS * (1 - MatRate(Age)) * TmpA TmpA = AEQ(Age) TmpS = 1 - NatMort(Age) Next Age

End Sub

Value

AEQ (scalar)

eeholmes/VRAP documentation built on Nov. 23, 2024, 2:35 a.m.