Nothing
"XPtrToDist" <-
function(d)
{
if( !any(class(d) == "XPtr") )
stop("`d' must be a of class `XPtr'")
tmp <- .Call("XPtrToNumeric", d, PACKAGE="rrp")
attributes(tmp) <- list(Size=attr(d,"Size"), class="dist")
return(invisible(tmp))
}
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.