R/EUAC.R

Defines functions EUAC

Documented in EUAC

EUAC <-
function(ic, sv, ac, i, yr) {
    initialCost <- ic / annuityPByA(interestRate=i, maturity=yr)
    salvageValue <- sv / annuityFByA(interestRate=i, maturity=yr)
    (initialCost - salvageValue) + ac
}
AmateurECE/economics documentation built on Feb. 4, 2020, 7:31 p.m.