R/newXPtr.R

"newXPtr" <-
function(n, k=0)
{
 tmp <- .Call("newXPtr", as.integer(n), as.numeric(k), PACKAGE = "rrp")
 attributes(tmp) <- list(class=c(class(tmp), "XPtr"), Size=n)
 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.