Nothing
## Load package
library("SPUTNIK")
## Create ms.image-class object
msIm <- msImage(values = matrix(rnorm(200), 40, 50), name = "test", scale = TRUE)
## Generate binary image
msImBin <- refImageBinaryOtsu(msIm)
## Apply the morphological closing
msImClosed <- closeImage(msImBin, kern.size = 3)
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.