Nothing
postimgclgrp <-
function(mask, cx, palcolor=TRUE)
{
mask[mask != 0] <- cx
cx <- mask
ncol <- ncol(mask)
cxm <- matrix(cx,ncol=ncol)
rc <- range(cxm)
par(ask=TRUE)
if(!palcolor) {
image(cxm, col=gray((0:rc[2])/rc[2]), zlim=c(0, rc[2]), axes=TRUE,
main="clustered dpm classification")
}
else {
ncolors <- length(table(cxm))
image(cxm, col = 1:ncolors, zlim=c(0,256), axes=TRUE,
main="clustered dpm classification")
}
}
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.