EUAC <-
function(ic, sv, ac, i, yr) {
initialCost <- ic / annuityPByA(interestRate=i, maturity=yr)
salvageValue <- sv / annuityFByA(interestRate=i, maturity=yr)
(initialCost - salvageValue) + ac
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.