Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.width = 7,
dev = "png"
)
## -----------------------------------------------------------------------------
library(motif)
library(stars)
library(sf)
landcover = read_stars(system.file("raster/landcover2015.tif", package = "motif"))
## ---- echo=FALSE--------------------------------------------------------------
landcover = droplevels(landcover)
plot(landcover, key.pos = 4, key.width = lcm(5), main = NULL)
## -----------------------------------------------------------------------------
landcover_comp = lsp_signature(landcover,
type = "composition",
threshold = 1,
normalization = "none")
landcover_comp
## -----------------------------------------------------------------------------
landcover_comp$signature
## ---- echo=FALSE--------------------------------------------------------------
stars200 = lsp_add_sf(landcover, window = 200)
landcover = droplevels(landcover)
plot(landcover, key.pos = NULL, reset = FALSE, main = NULL)
plot(st_geometry(stars200), add = TRUE, reset = FALSE)
# st_bbox(stars200)
# st_bbox(landcover)
## -----------------------------------------------------------------------------
landcover_coma = lsp_signature(landcover, type = "coma", window = 200)
landcover_coma
## -----------------------------------------------------------------------------
landcover_coma$signature[[1]]
## -----------------------------------------------------------------------------
ecoregions = read_sf(system.file("vector/ecoregions.gpkg", package = "motif"))
## ---- echo=FALSE--------------------------------------------------------------
# https://medialab.github.io/iwanthue/
my_pal = c("#d34359", "#62b93c", "#b75fcf", "#53c069", "#d44295", "#acb939", "#626edd", "#dc9e36", "#8156a8", "#4b8734", "#d98dc7", "#58c096", "#cc542a", "#48bbd2", "#bf814d", "#6686c8", "#968c30", "#a34d78", "#36815b", "#c26963", "#a2b36b", "#6b6829")
plot(ecoregions["id"], main = NULL, col = my_pal, key.pos = 4, key.width = lcm(5))
## -----------------------------------------------------------------------------
landcover_coma_e = lsp_signature(landcover, type = "coma", window = ecoregions["id"])
landcover_coma_e
## -----------------------------------------------------------------------------
landcover_coma_e$signature[[1]]
## -----------------------------------------------------------------------------
landcover_proxy = read_stars(system.file("raster/landcover2015.tif", package = "motif"),
proxy = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.