f <- system.file("ex/logo.tif", package = "terra")
r <- rast(f)
km <- k_means(r, centers=5)
r[1] <- NA
km <- k_means(r, centers=5)
km <- k_means(r, centers=5, maxcell=10)
x <- rast(system.file("ex/logo.tif", package="terra"))
a <- layerCor(x, "cor")
b <- layerCor(x, cor)
expect_equivalent(a$correlation, b)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.