library(FinCal) fv(0.12,20,0,-20000,1) fv(0.01,41,0,-100000,1) pv(0.07/12,60,0,-35000,1) pv(0.18/12,36,0,-130149,0) pmt(0.18/12,36,3600000,0,0) fv(0.035/12,n=c(12,18,24,35,60),0,-350000,1) n1<-c(12,18,24,35,60) amount1<-fv(0.035/12,n1,0,-350000,1) table1<-data.frame(n1,amount1) table1 pmt(0.1/12,n=c(6,12,18,24,36),10000000,0,0) n2<-c(6,12,18,24,36) amount2<-pmt(0.1/12,n2,10000000,0,0) table2<-data.frame(n2,amount2) table2