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 31, 2017, 3:29 a.m.