撰寫一個函式 Sum_whole 來計算前 N 個（作為引數傳遞）整數的總和。將結果賦給變數“V”并回傳
print(sum_whole(42))
print(sum_whole(13))
print(sum_whole(1))
uj5u.com熱心網友回復：
這里有兩個例子：一個在基礎 R 中，一個使用 tidyverse 中的 purrr 包。
一個基本的 R 版本：
Sum_whole <- function(N) {
Reduce(` `, seq_len(N))
}
Sum_whole(5)
#> [1] 15
使用 purrr 的 tidyverse 版本：
library(purrr)
Sum_whole <- function(N) {
purrr::reduce(seq_len(N), ` `)
}
Sum_whole(5)
#> [1] 15
uj5u.com熱心網友回復：
問題不就是這個單行嗎？
Sum_whole <- function(N) sum(seq_len(N))
Sum_whole(5)
#[1] 15
Sum_whole(43)
#[1] 946
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/358110.html
標籤：r
下一篇：按學期和年份對串列檔案進行排序