formula in R function

##參考網路R的操作，希望未來有實際運用的機會
#借入L金額的貸款，必須支付M個月，還款額r的比率
dta <- function(L,r,M){print(L*(r/(1-(1+r)^(-M))))}
#依照借款金額5百萬、1千萬、1千5百萬分別額度收取2％，5％或7%的利息
#在10、15、20、25、30年內，每月需要支付多少？
dta(5000000,0.02,c(10,15,20,25,30))

## [1] 556632.6 389127.4 305783.6 256102.2 223249.6

dta(10000000,0.05,c(10,15,20,25,30))

## [1] 1295045.7  963422.9  802425.9  709524.6  650514.4

dta(15000000,0.07,c(10,15,20,25,30))

## [1] 2135663 1646919 1415894 1287158 1208796

#隨著時間經過，越還越少