AgivenP | R Documentation |
Compute A given P
AgivenP( P, n, i, frequency = c("annual", "semiannual", "quarter", "bimonth", "month", "daily") ) AP( P, n, i, frequency = c("annual", "semiannual", "quarter", "bimonth", "month", "daily") )
P |
numeric vector that contains the present value(s) |
n |
numeric vector that contains the period value(s) |
i |
numeric vector that contains the interest rate(s) as a percent |
frequency |
character vector that contains the frequency used to obtain the number of periods [annual (1), semiannual (2), quarter (4), bimonth (6), month (12), daily (365)] |
A is expressed as
A = P≤ft[\frac{i≤ft(1 + i\right)^n}{≤ft(1 + i\right)^n - 1}\right]
the "uniform series amount (occurs at the end of each interest period)"
the "present equivalent"
the "effective interest rate per interest period"
the "number of interest periods"
AgivenP numeric vector that contains the annual value(s) rounded to 2 decimal places
AP data.frame of both n (0 to n) and the resulting annual values rounded to 2 decimal places
Irucka Embry
William G. Sullivan, Elin M. Wicks, and C. Patrick Koelling, Engineering Economy, Fourteenth Edition, Upper Saddle River, New Jersey: Pearson/Prentice Hall, 2009, page 136, 142, 164, 166.
library("iemisc") # Example for equation 4-14 from the Reference text (page 136) AgivenP(17000, 4, 1, "annual") # the interest rate is 1\% per month and n is 4 months AP(17000, 4, 1, "annual") # the interest rate is 1\% per month and n is 4 months # Example 4-30 from the Reference text (page 166) AgivenP(10000, 5, 12, "month") # the interest rate is 12% compounded monthly for 5 years AP(10000, 5, 12, "month") # the interest rate is 12% compounded monthly for 5 years
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.