diff --git a/R/comb_olr.R b/R/comb_olr.R
index 5c6c2f3..dd5f880 100644
--- a/R/comb_olr.R
+++ b/R/comb_olr.R
@@ -18,6 +18,6 @@ comb_olr<-function(meas,vars,data){
     d2<-d[,c(meas,ad)]
     names(d2)[1]<-"meas"
     x<-polr(meas~.,data = d2,Hess = TRUE)
-    mat<-cbind(exp(coef(x), exp(confint(x))))
+    mat<-cbind(exp(coef(x)), exp(confint(x)))
   return(data.frame(mat,stringsAsFactors = FALSE))
 }