From a079b631cdaefb563c95998df96da9b2dff87b27 Mon Sep 17 00:00:00 2001 From: agdamsbo Date: Wed, 13 Nov 2019 11:24:20 +0100 Subject: [PATCH] u --- DESCRIPTION | 2 +- R/strobe_pred.R | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 814a782..aa1da43 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: daDoctoR Type: Package Title: FUNCTIONS FOR HEALTH RESEARCH -Version: 0.1.0.9029 +Version: 0.1.0.9030 Author: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut"))) Maintainer: Andreas Gammelgaard Damsbo Description: I am a Danish medical doctor involved in neuropsychiatric research. diff --git a/R/strobe_pred.R b/R/strobe_pred.R index 32f110f..b3a37bb 100644 --- a/R/strobe_pred.R +++ b/R/strobe_pred.R @@ -164,11 +164,11 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){ rona<-c() for (i in 1:length(ads)){ if (is.factor(ads[,i])){ - rona<-c(rona,names(ads[i]),levels(ads[,i])) + rona<-c(rona,names(ads[i]),levels(ads[,i]))} if (!is.factor(ads[,i])){ rona<-c(rona,names(ads[i]),"Per unit increase") } - }} + } if (p.val==TRUE){ ref<-data.frame(c(NA,rona),re[,2],re[,5],re[,6],re[,3],re[,4]) @@ -331,11 +331,11 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){ rona<-c() for (i in 1:length(ads)){ if (is.factor(ads[,i])){ - rona<-c(rona,names(ads[i]),levels(ads[,i])) + rona<-c(rona,names(ads[i]),levels(ads[,i]))} if (!is.factor(ads[,i])){ rona<-c(rona,names(ads[i]),"Per unit increase") } - }} + } if (p.val==TRUE){ ref<-data.frame(c(NA,rona),re[,2],re[,5],re[,6],re[,3],re[,4])