This commit is contained in:
agdamsbo 2018-10-24 11:31:02 +02:00
parent 93bfc864e5
commit 70fdde4bc3

View File

@ -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(c(exp(coef(x)), exp(confint(x))))
mat<-cbind(exp(coef(x), exp(confint(x))))
return(data.frame(mat,stringsAsFactors = FALSE))
}