From 08cd5ad992a5c30a3cb9ee5d1f6cf302294aaec8 Mon Sep 17 00:00:00 2001 From: Yohann Chauvier <43674773+8Ginette8@users.noreply.github.com> Date: Tue, 7 Jan 2025 18:01:21 +0100 Subject: [PATCH] debugging --- inst/examples/make_blocks_help.R | 4 ++-- man/make_blocks.Rd | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/inst/examples/make_blocks_help.R b/inst/examples/make_blocks_help.R index 00c5d62..d251a00 100644 --- a/inst/examples/make_blocks_help.R +++ b/inst/examples/make_blocks_help.R @@ -10,7 +10,7 @@ block.pt <- make_blocks(nfolds = 5, df = obs.pt[,c("decimalLatitude","decimalLon # Plot one colour per fold countries <- terra::vect(rnaturalearth::ne_countries(type = "countries", returnclass = "sf")) -countries.focus <- crop(countries, ext(60,100,0,40)) +countries.focus <- terra::crop(countries, terra::ext(60,100,0,40)) terra::plot(countries.focus, col = "#bcbddc") -graphic::points(obs.pt[,c("decimalLongitude","decimalLatitude")], pch = 20, col = block.pt, cex = 1) +graphics::points(obs.pt[,c("decimalLongitude","decimalLatitude")], pch = 20, col = block.pt, cex = 1) } \ No newline at end of file diff --git a/man/make_blocks.Rd b/man/make_blocks.Rd index 73ffa33..5fef7d7 100644 --- a/man/make_blocks.Rd +++ b/man/make_blocks.Rd @@ -54,9 +54,9 @@ block.pt <- make_blocks(nfolds = 5, df = obs.pt[,c("decimalLatitude","decimalLon # Plot one colour per fold countries <- terra::vect(rnaturalearth::ne_countries(type = "countries", returnclass = "sf")) -countries.focus <- crop(countries, ext(60,100,0,40)) +countries.focus <- terra::crop(countries, terra::ext(60,100,0,40)) terra::plot(countries.focus, col = "#bcbddc") -graphic::points(obs.pt[,c("decimalLongitude","decimalLatitude")], pch = 20, col = block.pt, cex = 1) +graphics::points(obs.pt[,c("decimalLongitude","decimalLatitude")], pch = 20, col = block.pt, cex = 1) } } \references{