関数プログラミングR

Question

私はgithubからFunctionalsを読んでいます。このページの1つの提案は、機能のリストで作業している場合はcall_functionを使用することでした。こちらのページからのコードは次のとおりです。しかし、私は上記の結果を再現することができませんでした

# [[1]] 
# [1] 498 
# 
# [[2]] 
# [1] 0.498 
# 
# [[3]] 
# [1] 0.49 
# 
# [[4]] 
# [1] 0.29 

：

call_fun <- function(f, ...) f(...) 
f <- list(sum, mean, median, sd) 
lapply(f, call_fun, x = runif(1e3)) 

出力は次のように掲載されました。エラーが発生しました：

Error in FUN(X[[4L]], ...) : could not find function "f" 

私はここに何か不足していますか？

sd = 2 

call_fun <- function(f, ...) f(...) 
f <- list(sum, mean, median, sd) 
lapply(f, call_fun, x = runif(1e3)) 
#Error in FUN(X[[4L]], ...) : could not find function "f" 

はあなたのセッションを再起動するか rm(sd)を行う

：

Answer 1

あなたは機能sdを再定義しています。