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

update to counting.

Browse Source
This commit is contained in:
agdamsbo 2018-10-12 12:51:56 +02:00
parent fa76288a0a
commit eceb10da45
3 changed files with 4 additions and 4 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.9009 Version: 0.1.0.9010
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

@ -5,7 +5,7 @@
#' @param adj variables to adjust for, as string. #' @param adj variables to adjust for, as string.
#' @param data dataframe of data. #' @param data dataframe of data.
#' @param dec decimals for results, standard is set to 2. Mean and sd is dec-1. #' @param dec decimals for results, standard is set to 2. Mean and sd is dec-1.
#' @param n.by.adj flag to indicate wether to count number of patients in adjusted model or overall. #' @param n.by.adj flag to indicate wether to count number of patients in adjusted model or overall for outcome meassure not NA.
#' @keywords logistic #' @keywords logistic
#' @export #' @export
#' @examples #' @examples
@ -102,7 +102,7 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE){
}}} }}}
else { else {
dat2<-dat[,-1] dat2<-dat[!is.na(dat[,c(meas)]),][,-c(meas)]
for (i in 1:ncol(dat2)){ for (i in 1:ncol(dat2)){
if (is.factor(dat2[,i])){ if (is.factor(dat2[,i])){
vec<-dat2[,i] vec<-dat2[,i]

2
man/strobe_pred.Rd
View File

@ -15,7 +15,7 @@ strobe_pred(meas, adj, data, dec = 2, n.by.adj = FALSE)
\item{dec}{decimals for results, standard is set to 2. Mean and sd is dec-1.} \item{dec}{decimals for results, standard is set to 2. Mean and sd is dec-1.}
\item{n.by.adj}{flag to indicate wether to count number of patients in adjusted model or overall.} \item{n.by.adj}{flag to indicate wether to count number of patients in adjusted model or overall for outcome meassure not NA.}
} }
\description{ \description{
Printable table of logistic regression analysis according to STROBE. Printable table of logistic regression analysis according to STROBE.