R/cholLinpack.R

Defines functions cholLinpack

cholLinpack <- function(x=diag(3)) {
  if(nrow(x) != ncol(x))
  stop("wrong dimensions!")
  res <- .C("linpack_choleski", res=as.double(x), 
  as.integer(nrow(x)), PACKAGE="logistf")$res
  matrix(res, nrow(x))
}

Try the logistf package in your browser

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

logistf documentation built on Aug. 18, 2023, 5:06 p.m.