Nothing
# load libraries
library(SAFARI)
# load sample
data("rBPS")
# segmentation procedure
rBPS <- binary.segmentation(
rBPS,
id = c("NLST", "AA00474", "11030"),
filter = 150,
categories = c("geometric", "boundary", "topological")
)
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.