Nothing
## Very quick visualization at the finest scale/grain/threshold
tinyPatchGOCgrain <- grain(tinyPatchGOC, whichThresh = 1)
if (interactive())
plot(tinyPatchGOCgrain, col = topo.colors(10))
## Visualize the model at the finest scale/grain/threshold
## Manual control of plotting
if (interactive()) {
plot(grain(tinyPatchGOC, whichThresh = 1)@voronoi,
col = sample(rainbow(100)), legend = FALSE, main = "Threshold 1")
}
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.