# type the function name to view it

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

pv_f