使用R解决类似的Excel目标寻求问题

Question

我有一个现有的表格，如下所示

table

该表基于最顶部的4个条件。

应计金额=起始金额*实际收益* 1/4

净付款额=本金*面额* 1/4（最后一次付款时，净付款额+本金额一起支付）

期末金额=期初金额+应计金额-净付款

最终目标是使期末金额等于零，以找出目前等于10％的目标实际收益率（在excel中，我们使用目标搜索功能，但我想在r中复制此过程）：< / p>

excel goal seek

我是编码的新手，根据一些研究，我想到了以下代码：

f <- function(x) {
  dfSum <- df[1,1]
  for (i in 1:nrow(df)) {
    dfSum = dfSum + df[i,1]*x - df[i,3]}
  dfSum
}

# solve (or optimize)...
s <- uniroot(f, lower=0, upper=1)

但是，结果与应有的结果有所不同。正确的收益率应为9.88％，代码返回结果如下：

root = 0.024866
f.root = 0    
iter = 1        
init.it = [Null]       
estim.prec = 0.975134

有人可以指出或纠正我做错了什么地方吗？

谢谢！