#calculate cloud patches geometry <- geometryVariables(msg_example[[1]],var="cloudPatches")
1 2 3 | glcmPerPatch(x, patches, nrasters = 1:nlayers(x), var = c("mean",
"variance", "homogeneity", "contrast", "dissimilarity", "entropy",
"second_moment"), n_grey = 32)
|
#calculate glcm per patch glcmPerPatch(msg_example[[1]],geometry$cloudPatches,var=c("mean"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.