R/sF.R

sF <- function(mu, X, event){
  return(list(s = c(crossprod(X, event - mu)),
              F = crossprod(X, diag(mu)) %*% 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.