R/srt2.R

"srt2" <-
function(a,b,k1=1,k2=n) {
n <- length(a)
if (missing(a)) a <- single(n)
if (missing(b)) b <- single(n)
f.res <- .Fortran("srt2z",
a=to.single(a),
b=to.single(b),
n=to.integer(n),
k1=to.integer(k1),
k2=to.integer(k2))
list(a=f.res$a,b=f.res$b)
}

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.