Commit c160f2ac authored by Martin Khannouz's avatar Martin Khannouz Committed by Berenger Bramas

Change some stuff in R script.

parent 6f47cb71
"%IN%" <- function(x, y) interaction(x) %in% interaction(y)
get_data_subset <- function(f, n, h, p, b)
{
d <- read.csv(file=f,comment.char = "#", sep=",", quote = "\"", head=TRUE,
......
......@@ -38,6 +38,7 @@ gen_group_size_plot_comm <- function(d, model_wanted)
ggsave(output, g, width=29.7, height=21, units=c("cm"), device=cairo_pdf)
}
}
gen_group_size_plot_speed <- function(d, model_wanted)
{
if (is.character(model_wanted))
......@@ -79,9 +80,10 @@ gen_group_size <- function(dbfile)
{
data <- get_data_subset(dbfile, 0L, 0L, "False", 0L)
data <- subset(data, algo != get_one_node_reference_algorithm() & algo != "simple-mpi" & algo != "implicit-variable-bsize")
all_nnode <- unique(subset(data, bsize != get_bsize_reference())$nnode)
data <- subset(data, nnode %in% all_nnode)
data <- subset(data, algo == "explicit" | algo == "implicit")
tmp <- subset(data, bsize != get_bsize_reference())
tmp <- unique(tmp[c("nnode", "npart")])
data <- subset(data, data[c("nnode","npart")] %IN% tmp)
all_model <- unique(data$model)
for (i in 1:length(all_model))
......
......@@ -63,7 +63,7 @@ gen_normalized_time_plot <- function(db, d_breaks, model_wanted)
# Set X/Y labels.
g <- g + xlab("Number of nodes")
g <- g + ylab("Normalized time")
g <- g + ylab("Normalized efficiency")
g <- g + get_theme()
......
......@@ -44,7 +44,9 @@ output <- "output/bsize-speed.pdf"
all_algo <- list("implicit", "explicit")
d1 <- subset(data_all, algo %in% all_algo)
all_nnode <- unique(subset(d1, bsize != get_bsize_reference())$nnode)
d1 <- subset(d1, nnode %in% all_nnode)
tmp <- subset(d1, bsize != get_bsize_reference())
tmp <- unique(tmp[c("nnode", "npart")])
d1 <- subset(d1, d1[c("nnode","npart")] %IN% tmp)
gen_group_size_plot_speed(d1, 0L)
# plot comm group size : implicit
......@@ -52,6 +54,8 @@ output <- "output/bsize-volume.pdf"
all_algo <- list("implicit")
d1 <- subset(data_all, algo %in% all_algo)
all_nnode <- unique(subset(d1, bsize != get_bsize_reference())$nnode)
d1 <- subset(d1, nnode %in% all_nnode)
tmp <- subset(d1, bsize != get_bsize_reference())
tmp <- unique(tmp[c("nnode", "npart")])
d1 <- subset(d1, d1[c("nnode","npart")] %IN% tmp)
gen_group_size_plot_comm(d1, 0L)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment