-5

2 つの入力引数を取り、データフレームを返す関数を考えてみましょう。

myFun <- function(a, b){
   data.frame(aSQ = a^2, bSQ = b^2, SQPROD = a^2*b^2)
}

myFun(1, 1)

この関数の各引数に対して二重ループを構築できます。

results <- as.data.frame(matrix(0, nrow = 9, ncol = 3, 
                         dimnames = list(c(), c('aSQ', 'bSQ', 'SQPROD'))))
for (a in 1:3)
   for (b in 1:3)
      results[(a-1)*3+b, ] <- myFun(a, b)

この二重ループを適用構造に置き換える方法は?

4

1 に答える 1

1 
resList <- mapply(
   myFun,
   a = rep(1:3, times = 3), 
   b = rep(1:3, each  = 3), 
   SIMPLIFY = FALSE
)

dplyr::bind_rows(resList)
于 2015-08-13T07:36:18.277 に答える