This commit is contained in:
agdamsbo 2018-10-24 11:32:23 +02:00
parent 70fdde4bc3
commit 1dbe5976e0

View File

@ -18,6 +18,6 @@ comb_olr<-function(meas,vars,data){
d2<-d[,c(meas,ad)] d2<-d[,c(meas,ad)]
names(d2)[1]<-"meas" names(d2)[1]<-"meas"
x<-polr(meas~.,data = d2,Hess = TRUE) 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)) return(data.frame(mat,stringsAsFactors = FALSE))
} }