# add return 

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

    pv<-fv/(1+r)^n

    return(pv)

}