r - Loop function to add large numbers of predictors in regression function -

i want improve way insert predictors in regression function:

fm <- lm(formula= df$dependent_variable ~ df[,2] + df[,3]+ df[,4], data = df) 

df = data.frame

in example put 4 predictors , 1 dependent_variable. have 191 predictors. think need loop script put these predictors. suggestions?

here 1 possible solution:

yname<-"dvnamehere" xnames<-colnames(dat) xnames<-xnames[-which(xnames==yname)] formula<-as.formula(paste(yname,"~",paste(xnames,collapse="+"))) model<-lm(formula,data=dat) summary(model) 

while not loop requires specify name of dependent variable, , uses rest of variables in data set predictors puts regression formula. help?