tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

reflected the factor thing as been added as new additon

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-05 20:00:04 +01:00
parent fe9c3f8afe
commit 1a513913ce
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/functions/lf_unpaired_stats.R
View file

@ -7,8 +7,9 @@ lf_unpaired_stats <- function(lf_data
, lf_col_statvars = "param_type" , lf_col_statvars = "param_type"
, my_paired = FALSE , my_paired = FALSE
, stat_adj = "none"){ , stat_adj = "none"){
# ADDED NEW
lf_data[[lf_stat_group]] = as.factor(lf_data[[lf_stat_group]]) lf_data[[lf_stat_group]] = as.factor(lf_data[[lf_stat_group]])
stat_formula = as.formula(paste0(lf_stat_value, "~", lf_stat_group)) stat_formula = as.formula(paste0(lf_stat_value, "~", lf_stat_group))
my_stat_df = compare_means(stat_formula my_stat_df = compare_means(stat_formula
@ -19,4 +20,4 @@ lf_unpaired_stats <- function(lf_data
return(my_stat_df) return(my_stat_df)
} }