R/getDuration.R

getDuration<-function(r,bond,method = "FW")
{
  D = sum(getCFdisc(r,bond)*getCFTime(bond))
  return(D/getBondPrice(bond,r))
}
zzawadz/BondProc documentation built on May 5, 2019, 2:39 a.m.