# prsent value of a given future value 

 pv_f<-function(fv,r,n)fv/(1+r)^n