library("iemisc")
# Example 4-23 from the Reference text (page 158-159)
PgivenA1(1000, 25, 20, 4) # i is 25% and f is 20%
# Example 4-24 from the Reference text (page 159)
PgivenA1(1000, 25, -20, 4) # i is 25% and f is -20%
Run the code above in your browser using DataLab