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

update to correctly calculate relative distribution

Browse Source
This commit is contained in:
AG Damsbo 2021-10-07 09:27:10 +02:00
parent d7ce0e0faf
commit ecc7cbd01c
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.DS_Store vendored
View File

Binary file not shown.

2
DESCRIPTION
View File

@ -1,6 +1,6 @@
Package: daDoctoR Package: daDoctoR
Title: Functions For Health Research Title: Functions For Health Research
Version: 0.21.14 Version: 0.21.15
Year: 2021 Year: 2021
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>

18
R/print_pred.R
View File

@ -17,7 +17,7 @@
print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
## Wish list: ## Wish list:
## - SPEED, maybe flags to include/exclude time consuming tasks ## - SPEED, maybe flags to include/exclude time consuming tasks ??
## - Include ANOVA in output list, flag to include ## - Include ANOVA in output list, flag to include
require(dplyr) require(dplyr)
@ -101,7 +101,7 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
vr <- levels(vec)[r] vr <- levels(vec)[r]
## Counting all included in analysis ## Counting all included in analysis
n <- length(vec[vec == vr & !is.na(vec)]) n <- length(vec[vec == vr & !is.na(vec)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
## Counting all included in analysis with outcome ## Counting all included in analysis with outcome
lvl<-levels(dat2[,1])[2] lvl<-levels(dat2[,1])[2]
no <- length(vec[vec == vr & dat2[,1]==lvl & !is.na(vec)]) no <- length(vec[vec == vr & dat2[,1]==lvl & !is.na(vec)])
@ -113,7 +113,7 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
if (!is.factor(dat2[, i])) { if (!is.factor(dat2[, i])) {
num <- dat2[, i] num <- dat2[, i]
n <- length(num[!is.na(num)]) n <- length(num[!is.na(num)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
nq <- rbind(nq, cbind(names(dat2)[i], rt,ro="-")) nq <- rbind(nq, cbind(names(dat2)[i], rt,ro="-"))
} }
} }
@ -130,7 +130,7 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
vr <- levels(vec)[r] vr <- levels(vec)[r]
## Counting all included in analysis ## Counting all included in analysis
n <- length(vec[vec == vr & !is.na(vec)]) n <- length(vec[vec == vr & !is.na(vec)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
## Counting all included in analysis with outcome ## Counting all included in analysis with outcome
lvl<-levels(dat2[,1])[2] lvl<-levels(dat2[,1])[2]
no <- length(vec[vec == vr & dat2[,1]==lvl & !is.na(vec)]) no <- length(vec[vec == vr & dat2[,1]==lvl & !is.na(vec)])
@ -142,7 +142,7 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
if (!is.factor(dat2[, i])) { if (!is.factor(dat2[, i])) {
num <- dat2[, i] num <- dat2[, i]
n <- length(num[!is.na(num)]) n <- length(num[!is.na(num)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
nq <- rbind(nq, cbind(names(dat2)[i], rt,ro="-")) nq <- rbind(nq, cbind(names(dat2)[i], rt,ro="-"))
} }
} }
@ -273,13 +273,13 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
for (r in 1:length(levels(vec))){ for (r in 1:length(levels(vec))){
vr<-levels(vec)[r] vr<-levels(vec)[r]
n<-length(vec[vec==vr&!is.na(vec)]) n<-length(vec[vec==vr&!is.na(vec)])
rt<-paste0(n," (",round(n/nall*100,0),"%)") rt<-paste0(n," (",round(n/nalt*100,0),"%)")
nq<-rbind(nq,cbind(paste0(ns,levels(vec)[r]),rt)) nq<-rbind(nq,cbind(paste0(ns,levels(vec)[r]),rt))
}} }}
if (!is.factor(dat2[,i])){ if (!is.factor(dat2[,i])){
num<-dat2[,i] num<-dat2[,i]
n<-as.numeric(length(num[!is.na(num)])) n<-as.numeric(length(num[!is.na(num)]))
rt<-paste0(n," (",round(n/nall*100,0),"%)") rt<-paste0(n," (",round(n/nalt*100,0),"%)")
nq<-rbind(nq,cbind(names(dat2)[i],rt)) nq<-rbind(nq,cbind(names(dat2)[i],rt))
}} }}
} }
@ -294,14 +294,14 @@ print_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
for (r in 1:length(levels(vec))) { for (r in 1:length(levels(vec))) {
vr <- levels(vec)[r] vr <- levels(vec)[r]
n <- length(vec[vec == vr & !is.na(vec)]) n <- length(vec[vec == vr & !is.na(vec)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
nq <- rbind(nq, cbind(paste0(ns, levels(vec)[r]), rt)) nq <- rbind(nq, cbind(paste0(ns, levels(vec)[r]), rt))
} }
} }
if (!is.factor(dat2[, i])) { if (!is.factor(dat2[, i])) {
num <- dat2[, i] num <- dat2[, i]
n <- length(num[!is.na(num)]) n <- length(num[!is.na(num)])
rt <- paste0(n, " (", round(n/nall * 100, 0), "%)") rt <- paste0(n, " (", round(n/nalt * 100, 0), "%)")
nq <- rbind(nq, cbind(names(dat2)[i], rt)) nq <- rbind(nq, cbind(names(dat2)[i], rt))
} }
} }