search for: tableofoddsratio

..., row.names=1) # read in the variable list varlist<-names(datafile)[66:180] models<-lapply(varlist, function(x) {glm(substitute(outcome ~ i, list(i=as.name(x))), data=datafile, family = "binomial")}) # apply summary to each model stored in the list, models lapply(models, summary) tableofOddsRatios<-exp(cbind(OR = coef(models), confint(models))) write.table(table, "tableofOddsRatios_outcome.txt", sep="\t", row.names=T, col.names=T, quote=F) When I try to run this, I get the following error message: > tableofOddsRatios<-exp(cbind(OR = coef(models), confint(models...