Nothing
###-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Function N(.) as in http://cs.anu.edu.au/people/bdm/data/formats.txt
###-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
fN <- function(x)
# x = integer
{
if( x < 0 ) stop("'x' must be non-negative")
if( x >= 0 && x <= 62 )
return(x+63)
else
{
e <- dec2bin(x) # convert to binary
v <- expandToLength(e, l=ceiling(length(x)/6)*6, what=0, where="start")
}
rval <- splitInto(v, 6)
rval
}
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.