inst/tinytest/test_global.R
In rspatial/terra: Spatial Data Analysis
f <- system.file("ex/elev.tif", package="terra")
r <- rast(f)
r[1:50,] <- NA
v <- c(717627, 304.33715, 141, 432, 308.22562, 48.40079, 141, 432)
f <- c("sum", "mean", "min", "max", "rms", "sd", "range")
x <- unlist(sapply(f, function(s) global(r, s, na.rm=TRUE)))
#terraOptions(steps=4, todisk=T)
y <- unlist(sapply(f, function(s) global(r, s, na.rm=TRUE)))
expect_equivalent(x,v)
expect_equal(x, y)
rspatial/terra documentation built on Nov. 5, 2024, 5:13 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
f <- system.file("ex/elev.tif", package="terra")
r <- rast(f)
r[1:50,] <- NA
v <- c(717627, 304.33715, 141, 432, 308.22562, 48.40079, 141, 432)
f <- c("sum", "mean", "min", "max", "rms", "sd", "range")
x <- unlist(sapply(f, function(s) global(r, s, na.rm=TRUE)))
#terraOptions(steps=4, todisk=T)
y <- unlist(sapply(f, function(s) global(r, s, na.rm=TRUE)))
expect_equivalent(x,v)
expect_equal(x, y)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.