R/kffacv.R

"kffacv" <-
function(rs,expsi=psi,expsp=psp,np,sigma) {
if (missing(rs)) messagena("rs")
if (missing(np)) messagena("np")
if (missing(sigma)) messagena("sigma")
n <- length(rs)
fh <- single(1)
f.res <- .Fortran("int25",
rs=to.single(rs),
as.integer(expsi()),
as.integer(expsp()),
n=to.integer(n),
np=to.integer(np),
sigma=to.single(sigma),
fh=to.single(fh))
list(fh=f.res$fh)
}

Try the robeth package in your browser

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

robeth documentation built on May 29, 2017, 3:18 p.m.