# Copyright (c) 2016 Nuno Fachada
# Distributed under the MIT License (http://opensource.org/licenses/MIT)
library(micompr)
outputs <- c("Pop.Sheep", "Pop.Wolf", "Qty.Grass", "Energy.Sheep",
"Energy.Wolf", "Energy.Grass", "All")
dir_nl_ok <- "inst/extdata/nl_ok"
dir_jex_ok <- "inst/extdata/j_ex_ok"
dir_jex_noshuff <- "inst/extdata/j_ex_noshuff"
dir_jex_diff <- "inst/extdata/j_ex_diff"
files <- glob2rx("stats400v1*.tsv")
pphpc_ok <- grpoutputs(outputs,
c(dir_nl_ok, dir_jex_ok),
c(files, files),
lvls = c("NLOK", "JEXOK"),
concat = T)
pphpc_noshuff <- grpoutputs(outputs,
c(dir_nl_ok, dir_jex_noshuff),
c(files, files),
lvls = c("NLOK", "JEXNOSHUF"),
concat = T)
pphpc_diff <- grpoutputs(outputs,
c(dir_nl_ok,dir_jex_diff),
c(files, files),
lvls = c("NLOK", "JEXDIFF"),
concat = T)
pphpc_testvlo <- grpoutputs(outputs,
system.file("extdata", "testdata", "NA",
package = "micompr"),
c(glob2rx("stats400v1*n20A.tsv"),
glob2rx("stats400v1*n20B.tsv")),
concat = T)
save(pphpc_ok, file = "data/pphcp_ok.rdata")
save(pphpc_noshuff, file = "data/pphcp_noshuff.rdata")
save(pphpc_diff, file = "data/pphcp_diff.rdata")
save(pphpc_testvlo, file = "data/pphpc_testvlo.rdata")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.