andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-24 12:41:54 +01:00
Code Issues Projects Releases Wiki Activity

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-22 11:58:12 +02:00
parent 5882f9b3b0
commit 2dc9eebb23
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,7 +1,7 @@
Package: daDoctoR Package: daDoctoR
Type: Package Type: Package
Title: FUNCTIONS FOR HEALTH RESEARCH Title: FUNCTIONS FOR HEALTH RESEARCH
Version: 0.1.0.9010 Version: 0.1.0.9011
Author@R: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut"))) Author@R: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut")))
Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
Description: I am a Danish medical doctor involved in neuropsychiatric research. Description: I am a Danish medical doctor involved in neuropsychiatric research.

4
R/strobe_pred.R
View File

@ -29,6 +29,8 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE){
names(dfcr)<-c("pred","or_ci","pv") names(dfcr)<-c("pred","or_ci","pv")
n.mn<-c() n.mn<-c()
nref<-c()
for(i in 1:ncol(ads)){ for(i in 1:ncol(ads)){
dat<-data.frame(m=m,ads[,i]) dat<-data.frame(m=m,ads[,i])
names(dat)<-c("m",names(ads)[i]) names(dat)<-c("m",names(ads)[i])
@ -160,7 +162,7 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE){
ref<-data.frame(re[,1],re[,2],re[,5],re[,3]) ref<-data.frame(re[,1],re[,2],re[,5],re[,3])
names(ref)<-c("Variable","N","Crude OR (95 % CI)","Mutually adjusted OR (95 % CI)") names(ref)<-c("Variable",paste0("N=",nall),"Crude OR (95 % CI)","Mutually adjusted OR (95 % CI)")
ls<-list(tbl=ref,miss,n.meas,nrow(d)) ls<-list(tbl=ref,miss,n.meas,nrow(d))
names(ls)<-c("Printable table","Deleted due to missingness in adjusted analysis","Number of outcome observations","Length of dataframe") names(ls)<-c("Printable table","Deleted due to missingness in adjusted analysis","Number of outcome observations","Length of dataframe")