Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
.chol_inverse <- function(X) {
.Call('_MM4LMM_chol_inverse', PACKAGE = 'MM4LMM', X)
}
.MM_ML2MatRcpp <- function(Y, X, U, logdetU, D, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_MM_ML2MatRcpp', PACKAGE = 'MM4LMM', Y, X, U, logdetU, D, Init, MaxIter, CritVar , CritLogLik)
}
.MLMM <- function(Y, X, VarList, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_MLMM', PACKAGE = 'MM4LMM', Y, X, VarList, Init, MaxIter, CritVar , CritLogLik)
}
.PrepMat <- function(Y, K1, K2) {
.Call('_MM4LMM_PrepMat', PACKAGE = 'MM4LMM', Y, K1, K2)
}
.MM_Reml2MatRcpp <- function(Y, X, U, logdetU, D, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_MM_Reml2MatRcpp', PACKAGE = 'MM4LMM', Y, X, U, logdetU, D, Init, MaxIter, CritVar , CritLogLik)
}
.RemlMM <- function(Y, X, VarList, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_RemlMM', PACKAGE = 'MM4LMM', Y, X, VarList, Init, MaxIter, CritVar , CritLogLik)
}
.RemlMMHen <- function(Y, X, Z, GList, GinvList, Rinv, logdetV, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_RemlMMHen', PACKAGE = 'MM4LMM', Y, X, Z, GList, GinvList, Rinv, logdetV, Init, MaxIter, CritVar , CritLogLik)
}
.RemlMMHenDiag <- function(Y, X, Z, GList, GinvList, Rinv, logdetV, Init, MaxIter, CritVar , CritLogLik) {
.Call('_MM4LMM_RemlMMHenDiag', PACKAGE = 'MM4LMM', Y, X, Z, GList, GinvList, Rinv, logdetV, Init, MaxIter, CritVar , CritLogLik)
}
.sym_inverseRcpp <- function(X) {
.Call('_MM4LMM_sym_inverseRcpp', PACKAGE = 'MM4LMM', X)
}
.RemlMM1Mat <- function(Y, X, VarInv, logdetVar) {
.Call('_MM4LMM_RemlMM1Mat', PACKAGE = 'MM4LMM', Y, X, VarInv, logdetVar)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.