andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-23 20:30:21 +01:00
Code Issues Projects Releases Wiki Activity

update

Browse Source
This commit is contained in:
agdamsbo 2019-12-03 14:57:26 +01:00
parent 1f5bad426c
commit 6bd9e0508b
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,6 +1,6 @@
Package: daDoctoR Package: daDoctoR
Title: Functions For Health Research Title: Functions For Health Research
Version: 0.19.10 Version: 0.19.11
Year: 2019 Year: 2019
Author: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Author: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>

6
R/plot_biv_olr.R
View File

@ -21,10 +21,9 @@ plot_biv_olr<-function(meas,vars,data, title = NULL,dec=3,lbls=NULL,hori="OR (95
d <- data d <- data
x <- data.frame(d[, c(ad)]) x <- data.frame(d[, c(ad)])
y <- d[, c(meas)] y <- d[, c(meas)]
dt <- cbind(y, x)
if (analysis=="biv"){ if (analysis=="biv"){
dt <- cbind(y, x)
odds<-c(matrix(ncol = 3)) odds<-c(matrix(ncol = 3))
nms<-c("or","lo","hi") nms<-c("or","lo","hi")
for (i in 1:ncol(x)) { for (i in 1:ncol(x)) {
@ -41,8 +40,7 @@ odds<-odds[-1,]
} }
if (analysis=="multi"){ if (analysis=="multi"){
m<-polr(y~.,data = dt,Hess = TRUE)
m<-polr(y~.,data = dta2,Hess = TRUE)
odds<-data.frame(cbind(exp(coef(m)), exp(confint(m)))) odds<-data.frame(cbind(exp(coef(m)), exp(confint(m))))
} }
names(odds)<-c("or", "lo", "up") names(odds)<-c("or", "lo", "up")