andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-10-29 18:21:53 +01:00
Code Issues Projects Releases Wiki Activity

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-09 14:30:27 +02:00
parent 512ac511a3
commit cac6172dd6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/rep_olr.R
View File

@ -66,6 +66,8 @@ rep_olr<-function(meas,vars,string,ci=FALSE,data){
dat<-cbind(dt,x[,i]) dat<-cbind(dt,x[,i])
m<-polr(y~.,data=dat,Hess=TRUE) m<-polr(y~.,data=dat,Hess=TRUE)
ctable <- coef(summary(m))
b<-round(coef(m)[-c(1:m1)],2) b<-round(coef(m)[-c(1:m1)],2)
p <- (pnorm(abs(ctable[, "t value"]), lower.tail = FALSE) * 2)[1:length(coef(m))] p <- (pnorm(abs(ctable[, "t value"]), lower.tail = FALSE) * 2)[1:length(coef(m))]