diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-16 18:02:18 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-16 18:02:18 +0200 |
commit | d81550d0cccae824cc748de48e7fd50ea8d8033a (patch) | |
tree | cb95252ff725b5dcd0237bb8f74fdac4a3e08d15 /man/FOCUS_Step_12_scenarios.Rd | |
parent | 4bc95b3e4aae22e4052e0a4c905a9227c909e2cd (diff) |
Make na.rm = FALSE the default for geomean()
This makes more sense and is in line with mean() from base R. Adapt
tests and update docs.
Diffstat (limited to 'man/FOCUS_Step_12_scenarios.Rd')
-rw-r--r-- | man/FOCUS_Step_12_scenarios.Rd | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/man/FOCUS_Step_12_scenarios.Rd b/man/FOCUS_Step_12_scenarios.Rd index f58dea7..0547d61 100644 --- a/man/FOCUS_Step_12_scenarios.Rd +++ b/man/FOCUS_Step_12_scenarios.Rd @@ -19,14 +19,14 @@ The text file is not included in the package as its licence is not clear. scenario_path <- "inst/extdata/FOCUS_Step_12_scenarios.txt" scenarios <- readLines(scenario_path)[9:38] FOCUS_Step_12_scenarios <- list() - sce <- read.table(text = scenarios, sep = "\\t", header = TRUE, check.names = FALSE, + sce <- read.table(text = scenarios, sep = "\t", header = TRUE, check.names = FALSE, stringsAsFactors = FALSE) FOCUS_Step_12_scenarios$names = sce$Crop rownames(sce) <- sce$Crop FOCUS_Step_12_scenarios$drift = sce[, 3:11] FOCUS_Step_12_scenarios$interception = sce[, 12:15] sce_2 <- readLines(scenario_path)[41:46] - rd <- read.table(text = sce_2, sep = "\\t")[1:2] + rd <- read.table(text = sce_2, sep = "\t")[1:2] rd_mat <- matrix(rd$V2, nrow = 3, byrow = FALSE) dimnames(rd_mat) = list(Time = c("Oct-Feb", "Mar-May", "Jun-Sep"), Region = c("North", "South")) |