# NOT RUN {
r1 <- rast(ncols=10, nrows=10)
v <- runif(ncell(r1))
v[10:20] <- NA
values(r1) <- v
r2 <- rast(r1)
values(r2) <- 1:ncell(r2) / ncell(r2)
r3 <- r1 + r2
r2 <- r1 / 10
r3 <- r1 * (r2 - 1 / r2)
b <- c(r1, r2, r3)
b2 <- b * 10
s <- sqrt(b2)
round(s, 1)
max(s)
max(s, na.rm=TRUE)
x <- is.na(s)
y <- which.max(s)
### SpatExtent methods
x <- ext(0.1, 2.2, 0, 3)
y <- ext(-2, 1, -2,2)
# union
x + y
# intersection
x * y
e <- x
# }
# NOT RUN {
<!-- %% 2 -->
# }
# NOT RUN {
e
e * 2
e / 2
e + 1
e - 1
# }
Run the code above in your browser using DataLab