R/XPtrToDist.R

"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))
}

Try the rrp package in your browser

Any scripts or data that you put into this service are public.

rrp documentation built on May 2, 2019, 5:25 p.m.