牛顿迭代法

https://www.zhihu.com/question/20690553

# 老王贷款买房，贷款100万，每月还6000元，还款20年，等额本息。
# 1、贷款利率是多少？R语言

a<-1000000
x<-6000
r<-0.1
# r2<-(1+r)^240
# f<-a*(b*b2/(b2-1))
ex<-expression(a*(1+r)^240*r-x*((1+r)^240-1))
dex<-D(ex,"r")
r1<-0
for(i in 1:10000)
{
r1<-(r-eval(ex)/eval(dex))
if(abs(r1-r)< 10^-6)
{
break
}
r<-r1
}
r1*12