R/RcppExports.R

Defines functions PseudoLikelihood Broderick2013 vec2Graph vec2Thresh expvalues Hvec f H IsingSamplerCpp IsingProcess

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

IsingProcess <- function(nSample, graph, thresholds, beta, responses) {
    .Call('_IsingSampler_IsingProcess', PACKAGE = 'IsingSampler', nSample, graph, thresholds, beta, responses)
}

IsingSamplerCpp <- function(n, graph, thresholds, beta, nIter, responses, exact, constrain) {
    .Call('_IsingSampler_IsingSamplerCpp', PACKAGE = 'IsingSampler', n, graph, thresholds, beta, nIter, responses, exact, constrain)
}

H <- function(J, s, h) {
    .Call('_IsingSampler_H', PACKAGE = 'IsingSampler', J, s, h)
}

f <- function(Y, J, h) {
    .Call('_IsingSampler_f', PACKAGE = 'IsingSampler', Y, J, h)
}

Hvec <- function(s, Theta, N) {
    .Call('_IsingSampler_Hvec', PACKAGE = 'IsingSampler', s, Theta, N)
}

expvalues <- function(x) {
    .Call('_IsingSampler_expvalues', PACKAGE = 'IsingSampler', x)
}

vec2Thresh <- function(vec, P) {
    .Call('_IsingSampler_vec2Thresh', PACKAGE = 'IsingSampler', vec, P)
}

vec2Graph <- function(vec, P) {
    .Call('_IsingSampler_vec2Graph', PACKAGE = 'IsingSampler', vec, P)
}

Broderick2013 <- function(x, M, T, nIter, responses) {
    .Call('_IsingSampler_Broderick2013', PACKAGE = 'IsingSampler', x, M, T, nIter, responses)
}

PseudoLikelihood <- function(x, graph, thresholds, beta, responses, logis) {
    .Call('_IsingSampler_PseudoLikelihood', PACKAGE = 'IsingSampler', x, graph, thresholds, beta, responses, logis)
}

Try the IsingSampler package in your browser

Any scripts or data that you put into this service are public.

IsingSampler documentation built on Aug. 21, 2023, 5:13 p.m.