R/RcppExports.R

In SAcmu/LLSM: Package to Fit Longitudinal Latent Space Model

#' @useDynLib LLSM
#' @importFrom Rcpp sourceCpp


# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

distMat <- function(nn, dd, ZZ) {
    .Call('LLSM_distMat', PACKAGE = 'LLSM', nn, dd, ZZ)
}

FullLogLik <- function(YY, ZZ, intercept, nn, dd) {
    .Call('LLSM_FullLogLik', PACKAGE = 'LLSM', YY, ZZ, intercept, nn, dd)
}

likelihoodi <- function(ii, dd, nn, Yt, Zt, intercept) {
    .Call('LLSM_likelihoodi', PACKAGE = 'LLSM', ii, dd, nn, Yt, Zt, intercept)
}

FullLogLikCOV <- function(YY, ZZ, XX, Beta, intercept, nn, dd, pp) {
    .Call('LLSM_FullLogLikCOV', PACKAGE = 'LLSM', YY, ZZ, XX, Beta, intercept, nn, dd, pp)
}

likelihoodiCOV <- function(ii, dd, nn, pp, Yt, Xt, Zt, intercept, Beta) {
    .Call('LLSM_likelihoodiCOV', PACKAGE = 'LLSM', ii, dd, nn, pp, Yt, Xt, Zt, intercept, Beta)
}

varZero <- function(Phi, TT, dd, Zvar) {
    .Call('LLSM_varZero', PACKAGE = 'LLSM', Phi, TT, dd, Zvar)
}

logMVNkern <- function(Z, mu, Sigma) {
    .Call('LLSM_logMVNkern', PACKAGE = 'LLSM', Z, mu, Sigma)
}

logdmvnorm <- function(Z, mu, Sigma, dd) {
    .Call('LLSM_logdmvnorm', PACKAGE = 'LLSM', Z, mu, Sigma, dd)
}

Zllik <- function(ZZ, TT, dd, nn, Phi, ZVar, gList, posPrev) {
    .Call('LLSM_Zllik', PACKAGE = 'LLSM', ZZ, TT, dd, nn, Phi, ZVar, gList, posPrev)
}

Zupdate1 <- function(Yt, Zt, ZNext, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posNext) {
    .Call('LLSM_Zupdate1', PACKAGE = 'LLSM', Yt, Zt, ZNext, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posNext)
}

Zupdatet <- function(Yt, Zt, ZNext, ZPrev, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posPrev, posNext) {
    .Call('LLSM_Zupdatet', PACKAGE = 'LLSM', Yt, Zt, ZNext, ZPrev, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posPrev, posNext)
}

ZupdateTT <- function(Yt, Zt, ZPrev, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posPrev) {
    .Call('LLSM_ZupdateTT', PACKAGE = 'LLSM', Yt, Zt, ZPrev, TT, Intercept, dd, nn, Phi, var, llikOld, acct, tunet, gList, posPrev)
}

ZupdateLSM <- function(Y, Z, Intercept, dd, nn, var, llikOld, acc, tune) {
    .Call('LLSM_ZupdateLSM', PACKAGE = 'LLSM', Y, Z, Intercept, dd, nn, var, llikOld, acc, tune)
}

MCMCcppLSM <- function(Y, Z, Intercept, nn, dd, niter, tuneInt, tuneZ, accInt, accZ, MuInt, VarInt, VarZ, A, B) {
    .Call('LLSM_MCMCcppLSM', PACKAGE = 'LLSM', Y, Z, Intercept, nn, dd, niter, tuneInt, tuneZ, accInt, accZ, MuInt, VarInt, VarZ, A, B)
}