This commit is contained in:
agdamsbo 2018-10-04 10:13:59 +02:00
parent 915c3870f7
commit 7980c74e09

View File

@ -19,8 +19,8 @@ rep_glm<-function(meas,vars,string,ci=FALSE,data){
require(broom) require(broom)
d<-data d<-data
x<-data.frame(d[,c(string)]) x<-d[,c(string)]
v<-data.frame(d[,c(vars)]) v<-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)))