search for: modelinfunct

Displaying 1 result from an estimated 1 matches for "modelinfunct".

2011 Jul 29
1
Environment of a LM created in a function
...unction. The following code illustrates my usual approach: ---------------8<--------------- set.seed(123) dat <- data.frame(x = rep(rep(1:3, each = 3), 4), y = rep(1:3, 12)) dat$z1 <- rnorm(36, dat$x + dat$y) dat$z2 <- rnorm(36, dat$x + 2*dat$y) dat$z3 <- rnorm(36, dat$x + 3*dat$y) modelInFunction <- function(resp, expl, df) { fo <- as.formula(paste(resp, paste(expl, collapse = " + "), sep = " ~ ")) lm(fo, data = df) } ex <- c("x", "y") resp <- paste("z", 1:3, sep = "") models <- lapply(resp, modelInFunction,...