##' @export
loglikMVN <- function(yl,yu,status,mu,S,thres) {
.Call("_mets_loglikMVN",
yl=as.matrix(yl),
yu=as.matrix(yu),
status=as.integer(status),
mu=as.matrix(mu),dmu=NULL,s=as.matrix(S),ds=NULL,
z=NULL,su=NULL,dsu=NULL,
threshold=as.matrix(thres),dthreshold=NULL,
score=FALSE, itol=lava.options()$itol,
PACKAGE="mets")
}
##' @export
scoreMVN <- function(y,mu,S,dmu,dS) {
.Call("_mets_loglikMVN",
yl=as.matrix(y),
yu=NULL,
status=NULL,
mu=as.matrix(mu),dmu=as.matrix(dmu),
s=as.matrix(S),ds=as.matrix(dS),
z=NULL,su=NULL,dsu=NULL,
threshold=NULL,dthreshold=NULL,
score=TRUE, itol=lava.options()$itol,
PACKAGE="mets")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.