R/TDtT.R

Defines functions TDtT

TDtT <- function(A, ...){
    ch <- chol(A)
    dd <- diag(ch)
 return(list(T = t(drop0(zapsmall(ch / dd, ...))), D = Diagonal(nrow(A), dd^2)))
}

Try the nadiv package in your browser

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

nadiv documentation built on Dec. 8, 2022, 1:11 a.m.