saving work

This commit is contained in:
Tanushree Tunstall 2020-10-30 13:30:58 +00:00
parent ff1de17718
commit 9921f92fba
4 changed files with 4 additions and 4 deletions

0
boxplot.R Normal file → Executable file
View file

0
boxplot_linear.R Normal file → Executable file
View file

8
boxplot_log.R Normal file → Executable file
View file

@ -18,8 +18,8 @@ metadata_all$mosaic[metadata_all$adult==1 & metadata_all$age<=18]
#=============
# Output:
#=============
outfile_bp = paste0("boxplots_log_", my_samples, ".pdf")
output_boxplot = paste0(outdir_plots, outfile_bp); output_boxplot
outfile_bp_log = paste0("boxplots_log_", my_samples, ".pdf")
output_boxplot_log = paste0(outdir_plots, outfile_bp_log); output_boxplot_log
#===============================
# data assignment for plots
@ -60,8 +60,8 @@ lf_fp_serum$timepoint = as.factor(lf_fp_serum$timepoint)
lf_fp_serum$obesity = as.factor(lf_fp_serum$obesity)
########################################################################
cat("Output plots will be in:", output_boxplot)
pdf(output_boxplot, width = 20, height = 15)
cat("Output plots will be in:", output_boxplot_log)
pdf(output_boxplot_log, width = 20, height = 15)
#=======================================================================
# NPA

0
summary_stats_time_group_serum.R Normal file → Executable file
View file