From 8c210777b9c16b22922da2df26863b010c39c692 Mon Sep 17 00:00:00 2001 From: hsonne Date: Thu, 29 Sep 2022 10:19:15 +0200 Subject: [PATCH] Fix typo, improve comment --- inst/extdata/validate-berlin-mask.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/inst/extdata/validate-berlin-mask.R b/inst/extdata/validate-berlin-mask.R index 2c2831dc..17ef2ec7 100644 --- a/inst/extdata/validate-berlin-mask.R +++ b/inst/extdata/validate-berlin-mask.R @@ -12,7 +12,7 @@ if (FALSE) # Compare two versions of reading data for Berlin ------------------------------ if (FALSE) { - from <- "199106" + from <- "202105" to <- "202107" # Version 1: use Andreas Matzinger's Berlin mask matrix @@ -51,7 +51,7 @@ if (FALSE) # Read polygons of German cities and apply their masks to Germany -------------- if (FALSE) { - # We need a target projection, take it from an example grid of Germany + # Read shape files for German regions, transformed to projection of DWD grids shapes <- kwb.dwd:::get_shapes_of_germany(recreate = TRUE) # Create a configuration interactively @@ -96,7 +96,7 @@ if (FALSE) raster::plot(munich <- extract("M\xfcnchen$")) # white hole??? } -# Validat Andreas Matzinger's Berlin mask -------------------------------------- +# Validate Andreas Matzinger's Berlin mask ------------------------------------- if (FALSE) { # What is the difference between the Berlin "mask" of Andreas and the mask