毎回 function と書くのは面倒くさいので、楽に書けるように置き換えてみた。 f <- function(...,b){ ab <- substitute(c(...)) if (length(ab) < 3 && !hasArg(b)) stop("2引数以上または'b'引数を指定して下さい") if (hasArg(b)) { a <- ab b <- substitu…