2015-12-07 サンプル関数 R言語 createCounter <- function(init = 0) { value <- init function(count = 1) { if (!exists("delta")) delta <- 1 value <<- value + delta*count value } }