BugTrack-R備忘録/55の変更点
+!!例 +*その1 + x1 <- function(x, a, b){ + a + b + x^2 + } + x2 <- function(x, a, b){ + ret <- x1(x, a, b) + x*2 + ret + } + x4 <- function(z, ...){ + ret <- z*2 + x1(x=z, ...) + x2(x=z, ...) + ret + } + > x4(3, a=9, b=10) + [1] 30 +*その2 + x1 <- function(x){ + x^2 + } + x2 <- function(x){ + ret <- x1(x) + x*2 + ret + } + > x4(3) + [1] 30 + > x4(3, a=9, b=10) + 以下にエラー x1(x = z, ...) : 使われていない引数 (a = 9, b = 10) + +