Saya menulis fungsi sederhana. Masalahnya adalah saya hanya melihat hasil akhir. Saya ingin melihat hasil setiap langkah.

Lihat contohnya di sini:

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

f1(t0)

#[1] 31447174

Saya ingin melihat hasil yang ditampilkan untuk setiap kekuatan dari 1 hingga 30:

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

Bagaimana saya bisa melakukannya?

2
Rollo99 8 Maret 2020, 19:02

1 menjawab

Jawaban Terbaik

Anda bisa memasukkan sapply di dalamnya.

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

Atau, mungkin berkinerja lebih baik, gunakan vektor sebagai eksponen.

f1 <- function(x) x*(1.5)^(1:30) 
f1(t0)
# [1]      150.000      225.000      337.500      506.250      759.375     1139.062 ...
3
jay.sf 8 Maret 2020, 16:13