Code: Alles auswählen
base::Map(`/`, Liste1, Liste2)
Code: Alles auswählen
base::Map(`/`, Liste1, Liste2)
Code: Alles auswählen
lapply(seq_along(Liste1), function(i) Liste1[[i]] / Liste2[[i]])
Code: Alles auswählen
purrr::map2(Liste1, Liste2, ~.x / .y)
purrr::map2(Liste1, Liste2, `/`)
Code: Alles auswählen
R> update.packages(ask = FALSE, checkBuilt = TRUE)
Code: Alles auswählen
library("raster")
r1 <- raster(nrows=21, ncols=21)
r1[] <- sample(1:4, length(r1), replace = TRUE)
plot(r1)
plot(r1 == 4)
Code: Alles auswählen
geology_MA<- geology == 4