diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-03-01 10:10:08 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-03-01 10:10:08 +0100 |
| commit | 6d8de73e68f2c0349e618af35ce4a8f095ca0ed5 (patch) | |
| tree | 3f4b574934ce0bcb1ed0f167b4daab81accc5a38 /R | |
| parent | 3c39bba4af013b099ec013bddcc92407058026e0 (diff) | |
Rebuild static docs using current pkdown
Process PELMO runs in example using 15 (hyperthreading) cores and show
processor info.
Diffstat (limited to 'R')
| -rw-r--r-- | R/PELMO_runs.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/R/PELMO_runs.R b/R/PELMO_runs.R index 432231e..2768205 100644 --- a/R/PELMO_runs.R +++ b/R/PELMO_runs.R @@ -42,11 +42,14 @@ #' pot = c("Cha", "Ham", "Jok", "Kre", "Oke", "Pia", "Por", "Sev", "Thi"))) #' time_1 <- system.time( #' PECgw_1 <- PELMO_runs(runs_1, psm_dir = system.file("testdata", package = "pfm"), -#' cores = 6, overwrite = TRUE) +#' cores = 15, overwrite = TRUE) #' ) #' print(PECgw_1) #' # We get exactly the same PECgw values (on Linux, calling PELMO using Wine). #' print(time_1) +#' if(!inherits(try(cpuinfo <- readLines("/proc/cpuinfo")), "try-error")) { +#' cat(gsub("model name\t: ", "CPU model: ", cpuinfo[grep("model name", cpuinfo)[1]])) +#' } #' #' # Demonstrate some results with metabolites. #' runs_2 <- list(list(psm = 'Pesticide_D_1_May_every_other_year_mets', |