如何计算从 R 中自己的税基中扣除的税款？

Question

我的问题可能是数学问题而不是 R 问题，但如果有人有解决方案，它会对我有所帮助：

我需要用一个棘手的基数来计算税收：想法是税收本身是从基数中推导出来的，这涉及到迭代计算。

示例：如果收入为 1000，税率为 10%，我们应该 1000 - 100 = 900，然后 1000 - 90 = 910，然后 1000 - 91 = 909，等等，直到收入 - 税收 = 税基. Excel 如果我引用单元格本身，它会自动执行，但是我需要在 R 中执行。

目前，我得出了这个结果，但我希望我可以在不编写特定功能代码的情况下做到这一点？

iterativeCalculation <- function(base, rate){
  result = base
  while(result != base - result * rate){
    result = base - result * rate
  }
  result
}

有什么想法吗？非常感谢！

Answer 1

解决方案确实很简单，就是将收入除以（1+税率）。

不需要迭代，只需要除以1+税率即可。

1000 / 1.1 = x = 909.0909
1000 / 1.1 = x = 909.0909
revenue / (1 + tax rate) = tax base

如何计算从 R 中自己的税基中扣除的税款？

How to calculate a tax deduced from it own base in R?

iteration

r