This commit is contained in:
agdamsbo 2018-10-04 10:15:33 +02:00
parent 7980c74e09
commit cc3ad2c44a

View File

@ -19,8 +19,8 @@ rep_glm<-function(meas,vars,string,ci=FALSE,data){
require(broom) require(broom)
d<-data d<-data
x<-d[,c(string)] x<-data.frame(d[,c(string)])
v<-d[,c(vars)] v<-data.frame(d[,c(vars)])
y<-d[,c(meas)] y<-d[,c(meas)]
dt<-cbind(y,v) dt<-cbind(y,v)
m1<-length(coef(glm(y~.,family = binomial(),data = dt))) m1<-length(coef(glm(y~.,family = binomial(),data = dt)))