Как я могу отображать результаты за каждый период?

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 ...