R/RcppExports.R

In spCP: Spatially Varying Change Points

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

GetRooti <- function(Cov, Eye) {
    .Call('_spCP_GetRooti', PACKAGE = 'spCP', Cov, Eye)
}

QInvFnc <- function(WAlpha, EyeM, Rho, M) {
    .Call('_spCP_QInvFnc', PACKAGE = 'spCP', WAlpha, EyeM, Rho, M)
}

QFnc <- function(WAlpha, EyeM, Rho, M) {
    .Call('_spCP_QFnc', PACKAGE = 'spCP', WAlpha, EyeM, Rho, M)
}

WAlphaFnc <- function(Alpha, DMLong, AdjacentEdgesBoolean, W, M, WeightsInd) {
    .Call('_spCP_WAlphaFnc', PACKAGE = 'spCP', Alpha, DMLong, AdjacentEdgesBoolean, W, M, WeightsInd)
}

GetLogLik <- function(DatObj_List, Para_List, NKeep) {
    .Call('_spCP_GetLogLik', PACKAGE = 'spCP', DatObj_List, Para_List, NKeep)
}

GetLogLikMean <- function(DatObj_List, Para_List) {
    .Call('_spCP_GetLogLikMean', PACKAGE = 'spCP', DatObj_List, Para_List)
}

SamplePPD <- function(DatObj_List, Para_List, NKeep) {
    .Call('_spCP_SamplePPD', PACKAGE = 'spCP', DatObj_List, Para_List, NKeep)
}

spCP_Rcpp <- function(DatObj_List, HyPara_List, MetrObj_List, Para_List, DatAug_List, McmcObj_List, RawSamples, Interactive) {
    .Call('_spCP_spCP_Rcpp', PACKAGE = 'spCP', DatObj_List, HyPara_List, MetrObj_List, Para_List, DatAug_List, McmcObj_List, RawSamples, Interactive)
}

PredictFuture <- function(DatObj_List, Para_List, NKeep) {
    .Call('_spCP_PredictFuture', PACKAGE = 'spCP', DatObj_List, Para_List, NKeep)
}

Test <- function() {
    invisible(.Call('_spCP_Test', PACKAGE = 'spCP'))
}

GetXTheta <- function(Theta, XThetaInd, TimeVec, OneNu, OneN, tNu, N, M) {
    .Call('_spCP_GetXTheta', PACKAGE = 'spCP', Theta, XThetaInd, TimeVec, OneNu, OneN, tNu, N, M)
}

GetXThetaLoc <- function(ThetaLoc, Time, OneNu, Nu) {
    .Call('_spCP_GetXThetaLoc', PACKAGE = 'spCP', ThetaLoc, Time, OneNu, Nu)
}

CreatePhi <- function(Beta, Lambda, Eta, M) {
    .Call('_spCP_CreatePhi', PACKAGE = 'spCP', Beta, Lambda, Eta, M)
}

CholInv <- function(Cov) {
    .Call('_spCP_CholInv', PACKAGE = 'spCP', Cov)
}

Inv3 <- function(A) {
    .Call('_spCP_Inv3', PACKAGE = 'spCP', A)
}

makeSymm <- function(A) {
    .Call('_spCP_makeSymm', PACKAGE = 'spCP', A)
}