長さを決め打ちしたリスト(list)の初期化
sapply使ったこれが一番楽そう。
> #3個のlistを初期化 > x <- sapply(1:3, function(y){numeric(0)}) > x[[2]] <- lm(speed~dist,data=cars) > x [[1]] numeric(0) [[2]] Call: lm(formula = speed ~ dist, data = cars) Coefficients: (Intercept) dist 8.2839 0.1656 [[3]] numeric(0)