au-phd/PhysicalActivityandStrokeOutcome
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

extended tbl 1

Browse Source
This commit is contained in:
AG Damsbo 2022-12-06 13:37:42 +01:00
parent d6fc414822
commit 71e67f14a3
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
1 PA Decline/00master.R
View File

@ -84,11 +84,11 @@ source("data_format.R")
## ==================================================================== ## ====================================================================
# Step 1: labels # Step 1: labels
## ==================================================================== ## ====================================================================
lbs<-var.labels[match(colnames(X_tbl_f), names(var.labels))] # lbs<-var.labels[match(colnames(X_tbl_f), names(var.labels))]
#
ls<-lapply(1:ncol(X_tbl_f),function(x){ # ls<-lapply(1:ncol(X_tbl_f),function(x){
as.formula(paste0(names(lbs)[x],"~","\"",lbs[x],"\"")) # as.formula(paste0(names(lbs)[x],"~","\"",lbs[x],"\""))
}) # })
## ==================================================================== ## ====================================================================
# Step 2: table - edited # Step 2: table - edited
@ -124,8 +124,12 @@ ts_q <- X_tbl |>
tbl_summary(missing = "no", tbl_summary(missing = "no",
by="pase_0_cut", by="pase_0_cut",
value = list(where(is.factor) ~ "2"), value = list(where(is.factor) ~ "2"),
type = list(mrs_0 ~ "categorical"), type = list(mrs_0 ~ "categorical",
statistic = list(all_continuous() ~ "{median} ({p25};{p75}) [{min},{max}]") all_continuous() ~ "continuous2"),
statistic = list(all_continuous() ~ c("{N_nonmiss}",
"{median} ({p25}, {p75})",
"{min}, {max}",
"{mean} ({sd})"))
) |> ) |>
add_overall() |> add_overall() |>
add_n () add_n ()