R/ltza.R

Defines functions ltza

Documented in ltza

ltza <- function(r,x) {
    nx <- as.integer(length(x))
    EPS <- .Machine$double.eps
    # Call the ltza.c from the C library

    out <- .C("ltza",as.double(r),nx,as.double(x),nx,EPS,
    tr = array(0,dim = c(1,4)),fault = as.integer(1),PACKAGE = "HKprocess")

    return(setNames(as.vector(out$tr),c("t(x) * solve(R) * x",
    "t(en) * solve(R) * x","t(en) * solve(R) * en",
    "natural logarithm of determinant")))
}

Try the HKprocess package in your browser

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

HKprocess documentation built on May 29, 2017, 9:20 p.m.