Add headers to PlotProfiling.R

inst/PlotProfiling.R

+#'Visualize profiling measurements of the Compute execution
+#'
+#'When excuting function 'Compute', the profiling measurements of the execution 
+#'are provided together with the data output. This function turns the measurements
+#'into histograms and boxplots.
+#'
+#'@param configs 
+#'@param n_test 
+#'@param file_name
+#'@param config_names 
+#'@param items
+#'@param total_timings
+#'@param crop
+#'@param subtitle A charater string to add 
+#'
+#'@return 
+#'
+#'@keywords datagen
+#'@author History:\cr
+#'
+#'@examples
+
+#'@export
 PlotProfiling <- function(configs, n_test = 1, file_name = NULL,
                           config_names = NULL, items = NULL, 
                           total_timings = TRUE, 
@@ -79,7 +102,7 @@ PlotProfiling <- function(configs, n_test = 1, file_name = NULL,
     config_long_names <- c(config_long_names, config_long_name)
     config_total_times <- c(config_total_times, timings[['total']])
     timings <- as.data.frame(timings)
-    t_all_chunks <- timings[['total']] - timings[['bychunks_setup']] - timings[['merge']] - 
+    t_all_chunks <- timings[['total']] - timings[['bychunks_setup']] - timings[['transfer']] - 
                     timings[['merge']]
     if (!is.na(timings[['transfer_back']])) {
       t_all_chunks <- t_all_chunks - timings[['transfer_back']]