R/fstord.R

"fstord" <-
function(y,j) {
if (missing(j)) messagena("j")
n <- length(y)
if (missing(y)) y <- single(n)
yj <- single(1)
f.res <- .Fortran("fstordz",
y=to.single(y),
n=to.integer(n),
j=to.integer(j),
yj=to.single(yj))
list(y=f.res$y,yj=f.res$yj)
}

Try the robeth package in your browser

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

robeth documentation built on Aug. 22, 2023, 9:09 a.m.