# M-absolutne
getMabs<-function(r,bond,H,price = NULL)
{
if(is.null(price)) price = bondPrice(r,bond)
t = getCFTime(bond)
CFd = getCFdisc(r,bond)
tH = abs(t-H)
sum(CFd*tH)/price
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.