24 lines
837 B
R
Executable File
24 lines
837 B
R
Executable File
#!/bin/env Rscript
|
|
|
|
require(lattice)
|
|
require(sqldf)
|
|
|
|
args <- commandArgs(TRUE)
|
|
verbose = TRUE
|
|
|
|
input = args[1]
|
|
memory = args[2]
|
|
|
|
mfpb_data <- read.table(input, head=T)
|
|
mfpb_data <- mfpb_data[order(mfpb_data$set, mfpb_data$max_features_per_bin, mfpb_data$memory_limit_gb, mfpb_data$run_number) , ]
|
|
mfpb_data <- sqldf("select \"set\", max_features_per_bin, memory_limit_gb, avg(cpu_s) as cpu_s, avg(max_memory_mb) as max_memory_mb from mfpb_data where job_success = 'done' group by \"set\", max_features_per_bin, memory_limit_gb")
|
|
|
|
outfile = paste("max_features_per_bin_Xmx", memory, "g.pdf", sep="")
|
|
pdf(outfile, height=7, width=14)
|
|
|
|
par(cex=1.3)
|
|
|
|
xyplot(max_memory_mb + cpu_s ~ log10(max_features_per_bin), groups = set, data = subset(mfpb_data, memory_limit_gb == memory), type="b", scales=list(relation="free"), auto.key=T)
|
|
|
|
dev.off()
|