andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2025-04-05 14:22:31 +02:00
Code Issues Projects Releases Wiki Activity

f

Browse Source
This commit is contained in:
agdamsbo 2018-10-24 11:32:23 +02:00
parent 70fdde4bc3
commit 1dbe5976e0
1 changed files with 1 additions and 1 deletions

2
R/comb_olr.R

@ -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))
} }