Skip to content
Prev 82886 / 398502 Next

Help with data.frame and lapply

d <- data.frame(x1 = rnorm(100), x2 = rnorm(100), x3 = rnorm(100), cls = 
rnorm(100))
dd <- subset(d, sel=-cls)
lapply(paste("lm(cls ~", names(dd), ",data=d)"), function(x) 
eval(parse(text=x)))


Juan Daniel L??pez Serna a ??crit :