R/RcppExports.R

Defines functions differentiate3 evaluate3 assigner3 overwrite3 accessor3 equality3 addL3 identityL3 differentiate_n differentiate hessian_lowlevel evaluate assigner overwrite accessor equality addL identityL

Documented in accessor accessor3 addL addL3 assigner assigner3 differentiate differentiate3 differentiate_n equality equality3 evaluate evaluate3 hessian_lowlevel identityL identityL3 overwrite overwrite3

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

identityL <- function(L, p) {
    .Call(`_hyper2_identityL`, L, p)
}

addL <- function(L1, p1, L2, p2) {
    .Call(`_hyper2_addL`, L1, p1, L2, p2)
}

equality <- function(L1, p1, L2, p2) {
    .Call(`_hyper2_equality`, L1, p1, L2, p2)
}

accessor <- function(L, powers, Lwanted) {
    .Call(`_hyper2_accessor`, L, powers, Lwanted)
}

overwrite <- function(L1, powers1, L2, powers2) {
    .Call(`_hyper2_overwrite`, L1, powers1, L2, powers2)
}

assigner <- function(L, p, L2, value) {
    .Call(`_hyper2_assigner`, L, p, L2, value)
}

evaluate <- function(L, powers, probs, pnames) {
    .Call(`_hyper2_evaluate`, L, powers, probs, pnames)
}

hessian_lowlevel <- function(L, powers, probs, pnames, n) {
    .Call(`_hyper2_hessian_lowlevel`, L, powers, probs, pnames, n)
}

differentiate <- function(L, powers, probs, pnames, n) {
    .Call(`_hyper2_differentiate`, L, powers, probs, pnames, n)
}

differentiate_n <- function(L, powers, probs, pnames, n) {
    .Call(`_hyper2_differentiate_n`, L, powers, probs, pnames, n)
}

identityL3 <- function(L, W, p) {
    .Call(`_hyper2_identityL3`, L, W, p)
}

addL3 <- function(L1, W1, p1, L2, W2, p2) {
    .Call(`_hyper2_addL3`, L1, W1, p1, L2, W2, p2)
}

equality3 <- function(L1, W1, p1, L2, W2, p2) {
    .Call(`_hyper2_equality3`, L1, W1, p1, L2, W2, p2)
}

accessor3 <- function(L, W, powers, Lwanted, Wwanted) {
    .Call(`_hyper2_accessor3`, L, W, powers, Lwanted, Wwanted)
}

overwrite3 <- function(L1, W1, powers1, L2, W2, powers2) {
    .Call(`_hyper2_overwrite3`, L1, W1, powers1, L2, W2, powers2)
}

assigner3 <- function(L, W, p, L2, W2, value) {
    .Call(`_hyper2_assigner3`, L, W, p, L2, W2, value)
}

evaluate3 <- function(L, W, powers, probs, pnames) {
    .Call(`_hyper2_evaluate3`, L, W, powers, probs, pnames)
}

differentiate3 <- function(L, W, powers, probs, pnames, n) {
    .Call(`_hyper2_differentiate3`, L, W, powers, probs, pnames, n)
}

Try the hyper2 package in your browser

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

hyper2 documentation built on Aug. 21, 2022, 1:05 a.m.