如何显示每个时期的结果？

Question

我写了一个简单的函数。问题是我只能看到最终结果。我希望看到每个步骤的结果。

在此处查看示例：

t0 <- 100
f1 <- function(x) x*(1.5)^30 

f1(t0)

#[1] 31447174

我希望看到从1到30的每一次异能都会影响结果：

[1] 150 (100*1.5)
[2] 225 (100*(1.5)^2)
...
[30] 31447174

我该怎么办？

Answer 1

您可以在其中放入sapply。

t0 <- 100
f1 <- function(x) sapply(1:30, function(i) x*(1.5)^i) 

f1(t0)
# [1]      150.000      225.000      337.500      506.250      759.375     1139.062 ...

或者，也许更好的表现是使用向量作为指数。

f1 <- function(x) x*(1.5)^(1:30) 
f1(t0)
# [1]      150.000      225.000      337.500      506.250      759.375     1139.062 ...