diff --git a/R/rep_lm.R b/R/rep_lm.R index 8f3d45b..114fd0d 100644 --- a/R/rep_lm.R +++ b/R/rep_lm.R @@ -24,7 +24,7 @@ rep_lm<-function(meas,vars,string,ci=FALSE,data,fixed.var=FALSE){ x<-data.frame(d[,c(vars,string)]) y<-d[,c(meas)] - dt<-cbind(y=y,v) + names(x)<-c(vars,string) if (ci==TRUE){