library("iemisc")
# Example for equation 4-31 from the Reference text (page 162)
PgivenFivary(Fn = 1000, ik = c(10, 12, 13, 10), k = 1)
# i1 is 10%, i2 is 12%, i3 is 14%, and i4 is 10% & k = 1 year
Run the code above in your browser using DataLab