R/RcppExports.R

Defines functions rcpparma_bothproducts rcpparma_innerproduct rcpparma_outerproduct rcpparma_hello_world lnlFast discord tableFast fscale_cutsFast imapThetaFast mainF imapThetaFast2 theta optFFast optFcFast mapThetaFast fixxFast wrankFast cont

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

cont <- function(x, y, w) {
    .Call(`_wCorr_cont`, x, y, w)
}

wrankFast <- function(x, w) {
    .Call(`_wCorr_wrankFast`, x, w)
}

fixxFast <- function(x, w) {
    .Call(`_wCorr_fixxFast`, x, w)
}

mapThetaFast <- function(v) {
    .Call(`_wCorr_mapThetaFast`, v)
}

optFcFast <- function(par, x, w, M, temp3, theta0) {
    .Call(`_wCorr_optFcFast`, par, x, w, M, temp3, theta0)
}

optFFast <- function(par, x, w, M, temp3) {
    .Call(`_wCorr_optFFast`, par, x, w, M, temp3)
}

theta <- function(M) {
    .Call(`_wCorr_theta`, M)
}

imapThetaFast2 <- function(theta0) {
    .Call(`_wCorr_imapThetaFast2`, theta0)
}

mainF <- function(x, M, w, theta0) {
    .Call(`_wCorr_mainF`, x, M, w, theta0)
}

imapThetaFast <- function(theta0) {
    .Call(`_wCorr_imapThetaFast`, theta0)
}

fscale_cutsFast <- function(par) {
    .Call(`_wCorr_fscale_cutsFast`, par)
}

tableFast <- function(x, y, w) {
    .Call(`_wCorr_tableFast`, x, y, w)
}

discord <- function(xytab) {
    .Call(`_wCorr_discord`, xytab)
}

lnlFast <- function(xytab, pm) {
    .Call(`_wCorr_lnlFast`, xytab, pm)
}

rcpparma_hello_world <- function() {
    .Call(`_wCorr_rcpparma_hello_world`)
}

rcpparma_outerproduct <- function(x) {
    .Call(`_wCorr_rcpparma_outerproduct`, x)
}

rcpparma_innerproduct <- function(x) {
    .Call(`_wCorr_rcpparma_innerproduct`, x)
}

rcpparma_bothproducts <- function(x) {
    .Call(`_wCorr_rcpparma_bothproducts`, x)
}

Try the wCorr package in your browser

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

wCorr documentation built on Aug. 20, 2023, 1:07 a.m.