fix workflow_ANOVA

Author: Karin Schork

NAMESPACE

@@ -6,7 +6,6 @@ export(ANOVA_repeatedMeasurements_single_row)
 export(ANOVA_standard_single_row)
 export(Boxplots)
 export(Boxplots_candidates)
-export(Heatmap_with_groups)
 export(MA_Plot_single)
 export(MA_Plots)
 export(PCA_Plot)
@@ -16,15 +15,13 @@ export(VolcanoPlot_ANOVA)
 export(VolcanoPlot_ttest)
 export(add_labels)
 export(automatedNormalization)
-export(calculate_onoff)
 export(calculate_significance_categories_ANOVA)
 export(calculate_significance_categories_ttest)
 export(prepareData)
 export(pvalue_foldchange_histogram)
 export(ttest)
 export(ttest_single_row)
 export(ttest_single_row_paired)
-export(workflow_ANOVA)
 export(workflow_QC)
 export(workflow_ttest)
 importFrom(magrittr,"%>%")

R/workflow_ttest.R

@@ -52,7 +52,7 @@
 #'                               The plot width in cm.
 #' @param plot_dpi               \strong{integer} \cr
 #'                               The "dots per inch" of the plot aka. the plot resolution.
-#'                               
+#'
 #' @param column_name_protein    \strong{character} \cr
 #'                               The column name containing the proteins.
 #'
@@ -381,8 +381,8 @@ workflow_ANOVA <- function(data_path,
                          group = data[["group"]],  sample = data[["sample"]],
                          paired = paired, var.equal = var.equal,
                          log_before_test = log_before_test, delog_for_FC = delog_for_FC, log_base = 2,
-                         min_obs_per_group = 3, min_perc_per_group = NULL,
-                         filename = paste0(output_path, "results_ANOVA", suffix, ".xlsx"))
+                         min_obs_per_group = 3, min_perc_per_group = NULL)#,
+                         #filename = paste0(output_path, "results_ANOVA", suffix, ".xlsx"))
 
   mess <- paste0(mess, "ANOVA calculated. \n")