reformatting code to select needed df for analysis

This commit is contained in:
Tanushree Tunstall 2020-11-20 11:43:03 +00:00
parent a6cbaab40a
commit b72c4df796
7 changed files with 243 additions and 102 deletions

View file

@ -365,6 +365,14 @@ colnames(combined_unpaired_stats_f) = c("mediator"
, "p_bon_signif")
colnames(combined_unpaired_stats_f)
# count how many meds are significant
n_sig = length(combined_unpaired_stats_f$mediator[combined_unpaired_stats_f$p_signif<0.05])
cat("\nTotal no. of statistically significant mediators in", toupper(my_sample_type)
, "are:", n_sig)
sig_meds = combined_unpaired_stats_f[combined_unpaired_stats_f$p_signif<0.05,]
########################################################################
#******************
# write output file