data-raw/pphpc.R

# 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")
FakenMC/micompr documentation built on Jan. 31, 2024, 5:09 a.m.