Nothing
myLeg <-
function (vec, arrond) {
x <- vec
lx <- length(x)
if (lx < 3)
stop("not enought classes")
res <- character(lx )
res
for (i in 1:(lx ))
{res[i] <- paste(round(x[i],arrond),sep="")
}
res
}
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.