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{