R/fisherinfoP.R

fisherinfoP <- function(mu, X){
  return(crossprod(X, diag(mu)) %*% X)
  ## return(t(X) %*% Dbeta %*% X)
}

Try the penMSM package in your browser

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

penMSM documentation built on May 2, 2019, 11:06 a.m.