R/srt1.R

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

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.