Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.