23 lines
864 B
R
23 lines
864 B
R
library(ggpubr)
|
|
###################################################################
|
|
|
|
lf_unpaired_stats <- function(lf_data
|
|
, lf_stat_value = "param_value"
|
|
, lf_stat_group = "mutation_info_labels"
|
|
, lf_col_statvars = "param_type"
|
|
, my_paired = FALSE
|
|
, stat_adj = "none"){
|
|
# ADDED NEW
|
|
lf_data[[lf_stat_group]] = as.factor(lf_data[[lf_stat_group]])
|
|
|
|
stat_formula = as.formula(paste0(lf_stat_value, "~", lf_stat_group))
|
|
|
|
my_stat_df = compare_means(stat_formula
|
|
, group.by = lf_col_statvars
|
|
, data = lf_data
|
|
, paired = my_paired
|
|
, p.adjust.method = stat_adj)
|
|
|
|
|
|
return(my_stat_df)
|
|
}
|