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)
d<-data
x<-d[,c(string)]
v<-d[,c(vars)]
x<-data.frame(d[,c(string)])
v<-data.frame(d[,c(vars)])
y<-d[,c(meas)]
dt<-cbind(y,v)
m1<-length(coef(glm(y~.,family = binomial(),data = dt)))