R/scorevectorP.R

scorevectorP <- function(mu, X, event){
  return(as.numeric(crossprod(X, event - mu)))
  ## as.numeric(t(X) %*% (event - mu))
}

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.