Nothing
`check` <-
function (x, v, l1, l2)
{
if (v[l1, l2] > 0) {
print("WARNING from routine ", x, ": element", l1, l2,
"already non-zero")
}
v[l1, l2] <- x
v
}
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.