# the following two funcitons are equivalent 


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



pv_f<-function(fv,r,n){

     fv/(1+r)^n

}