hpcs-17-subord

Subordination: Providing Resilience to Simultaneous Failure of Multiple Cluster Nodes
git clone https://git.igankevich.com/hpcs-17-subord.git
Log | Files | Refs

test-1.R (491B)

      1 #!/usr/bin/env Rscript
      2 
      3 args <- commandArgs(trailingOnly=TRUE)
      4 if (length(args) < 2) {
      5 	stop("./script INDIR OUTFILE")
      6 }
      7 
      8 source(file.path("R", "common.R"))
      9 
     10 prefix <- args[[1]]
     11 outfile <- args[[2]]
     12 runtime <- load_log_file_as_data_frame(prefix)
     13 print(runtime)
     14 x <- c(1:ncol(runtime))
     15 y <- colMeans(runtime) * 1e-3
     16 
     17 pdf(
     18 	file=outfile,
     19 	width=3,
     20 	height=2,
     21 	pointsize=7
     22 )
     23 plot(
     24 	x,
     25 	y,
     26 	xlab="Surviving node no.",
     27 	ylab="Running time, s",
     28 	axes=FALSE
     29 )
     30 axis(1, at=x, labels=x)
     31 axis(2)
     32 box()