nr <- nc <- 8
r <- terra::rast(nrows = nr, ncols = nc, ext = c(0, nc, 0, nr), vals = c(
NA, NA, 1, 1, 1, NA, NA, NA,
NA, NA, NA, 1, 1, NA, NA, NA,
NA, NA, 2, NA, NA, NA, NA, NA,
NA, NA, 2, NA, NA, 2, NA, NA,
NA, NA, 2, NA, 2, 2, NA, NA,
2, 2, 2, 2, 2, 2, NA, NA,
NA, NA, 2, 2, NA, NA, NA, NA,
NA, NA, NA, 2, NA, NA, NA, NA
))
terra::plot(r)
smoothed <- apply_majority_rule(r)
terra::plot(smoothed)
Run the code above in your browser using DataLab