Utils/data-processing/down_time_mean_sd.R

   1 #
   2 # get mean download time, standard deviation and mean download speed
   3 #
   4
   5 args <- commandArgs(trailingOnly = TRUE)
   6
   7 input_file <- args[2]
   8 file_size <- args[3]
   9
  10 data <- read.table(input_file, sep=" ")
  11
  12 down_time <- data[2]
  13
  14 m <- mean(down_time)
  15 s <- sd(down_time)
  16 p <- s / m * 100
  17 m_down_speed <- as.numeric(file_size)*1024 / m
  18
  19 m
  20 s
  21 p
  22 m_down_speed