Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
NCutY3V1 <- function(Cys, Cy2s, Wys, Wxs) {
.Call('_NCutYX_NCutY3V1', PACKAGE = 'NCutYX', Cys, Cy2s, Wys, Wxs)
}
NCut <- function(Cys, Wys) {
.Call('_NCutYX_NCut', PACKAGE = 'NCutYX', Cys, Wys)
}
WNCut <- function(Cys, Cy2s, Wys) {
.Call('_NCutYX_WNCut', PACKAGE = 'NCutYX', Cys, Cy2s, Wys)
}
NCutLayer3V1 <- function(Cys, Cy2s, Wzs, Wys, Wxs, Wzyxs) {
.Call('_NCutYX_NCutLayer3V1', PACKAGE = 'NCutYX', Cys, Cy2s, Wzs, Wys, Wxs, Wzyxs)
}
Ranking <- function(C) {
.Call('_NCutYX_Ranking', PACKAGE = 'NCutYX', C)
}
oneMultinomCalt <- function(probs) {
.Call('_NCutYX_oneMultinomCalt', PACKAGE = 'NCutYX', probs)
}
RandomMatrix <- function(p, K, P) {
.Call('_NCutYX_RandomMatrix', PACKAGE = 'NCutYX', p, K, P)
}
RandomMatrix2 <- function(p, K, P) {
.Call('_NCutYX_RandomMatrix2', PACKAGE = 'NCutYX', p, K, P)
}
samplingncut <- function(W, Prob, p, K, N) {
.Call('_NCutYX_samplingncut', PACKAGE = 'NCutYX', W, Prob, p, K, N)
}
cutoff <- function(loss, q0) {
.Call('_NCutYX_cutoff', PACKAGE = 'NCutYX', loss, q0)
}
ProbAve <- function(Cs, Ind, p, K) {
.Call('_NCutYX_ProbAve', PACKAGE = 'NCutYX', Cs, Ind, p, K)
}
Indexing <- function(loss, qloss) {
.Call('_NCutYX_Indexing', PACKAGE = 'NCutYX', loss, qloss)
}
ncutcem <- function(W, p, K, N, B, q0, p0) {
.Call('_NCutYX_ncutcem', PACKAGE = 'NCutYX', W, p, K, N, B, q0, p0)
}
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.