This commit is contained in:
agdamsbo 2018-10-04 09:26:37 +02:00
parent e177156660
commit 39dc511e12

View File

@ -72,7 +72,7 @@ rep_glm<-function(y,vars,string,ci=FALSE,data){
x1<-x[,i] x1<-x[,i]
if (is.factor(x1)){ if (is.factor(x1)){
pred<-paste(names(x1)[i],levels(x1)[-1],sep = "_") pred<-paste(names(x)[i],levels(x1)[-1],sep = "_")
} }
else {pred<-names(x)[i]} else {pred<-names(x)[i]}