para1 <- c( 1, 3, 5) para2 <- c( 7, 11, 13) parameter <- data.frame(para1, para2) こんな感じでパラメータのリスト作っておいて ## case 1 fun <- lapply(parameter, function(x){ function(){ x[1] + x[2] + x[3] }}) こうやってパラメータが違うだけの関数のリストを作ろうとした. > fun[[1]]() [1] 31 > fun[[2]]() [1] 31 上手く動かない… ところが途中で一度引数を呼び出すと ## case 2 fun2 <- lapply(parameter, function(x){ hoge <- x ## <- ココ function(){ x[1] + x[2] + x[3] }}) > fun2[[1]](