Commit c102f988 authored by Björn Reineking's avatar Björn Reineking

Update names in raster_mapply

parent b14dc3c1
......@@ -43,13 +43,14 @@ raster_mapply <- function(x, sigma) {
result <- raster::stack(result, layer)
layer[] <- ste[[2]]
result <- raster::stack(result, layer)
names(result) <- c(paste0("G_", sigma),
paste0("LG_", sigma),
paste0("GGM_", sigma),
paste0("Struct.1_", sigma),
paste0("Struct.2_", sigma),
paste0("HOG.1_", sigma),
paste0("HOG.2_", sigma))
base_name <- names(x)
names(result) <- c(paste(base_name, "G", sigma, sep = "_"),
paste(base_name, "LG", sigma, sep = "_"),
paste(base_name, "GGM", sigma, sep = "_"),
paste(base_name, "ST.1", sigma, sep = "_"),
paste(base_name, "ST.2", sigma, sep = "_"),
paste(base_name, "HG.1", sigma, sep = "_"),
paste(base_name, "HG.2", sigma, sep = "_"))
result
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment