# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
tableC <- function(x) {
.Call('_PPtreeExt_tableC', PACKAGE = 'PPtreeExt', x)
}
roundme <- function(x) {
.Call('_PPtreeExt_roundme', PACKAGE = 'PPtreeExt', x)
}
LDAindex2 <- function(origclass, origdata, proj, weight = TRUE) {
.Call('_PPtreeExt_LDAindex2', PACKAGE = 'PPtreeExt', origclass, origdata, proj, weight)
}
signC <- function(x) {
.Call('_PPtreeExt_signC', PACKAGE = 'PPtreeExt', x)
}
LDAopt <- function(origclass, origdata, q = 1L, PPmethod = "LDA", weight = TRUE) {
.Call('_PPtreeExt_LDAopt', PACKAGE = 'PPtreeExt', origclass, origdata, q, PPmethod, weight)
}
PDAindex2 <- function(origclass, origdata, proj, weight = TRUE, lambda = 0.1) {
.Call('_PPtreeExt_PDAindex2', PACKAGE = 'PPtreeExt', origclass, origdata, proj, weight, lambda)
}
PDAopt <- function(origclass, origdata, q = 1L, PPmethod = "PDA", weight = TRUE, lambda = 0.1) {
.Call('_PPtreeExt_PDAopt', PACKAGE = 'PPtreeExt', origclass, origdata, q, PPmethod, weight, lambda)
}
varselect <- function(p, s) {
.Call('_PPtreeExt_varselect', PACKAGE = 'PPtreeExt', p, s)
}
datanode <- function(origdata, sizep) {
.Call('_PPtreeExt_datanode', PACKAGE = 'PPtreeExt', origdata, sizep)
}
entropy <- function(origclass) {
.Call('_PPtreeExt_entropy', PACKAGE = 'PPtreeExt', origclass)
}
split_entro <- function(origclass, projdata) {
.Call('_PPtreeExt_split_entro', PACKAGE = 'PPtreeExt', origclass, projdata)
}
split_relMOD <- function(origclass, projdata, entro, entroindiv) {
.Call('_PPtreeExt_split_relMOD', PACKAGE = 'PPtreeExt', origclass, projdata, entro, entroindiv)
}
findprojMOD <- function(origclass, origdata, PPmethod, lambda = 0.1, entro = TRUE, entroindiv = FALSE) {
.Call('_PPtreeExt_findprojMOD', PACKAGE = 'PPtreeExt', origclass, origdata, PPmethod, lambda, entro, entroindiv)
}
findproj1D <- function(origclass, origdata, PPmethod, lambda = 0.1, entro = FALSE, entroindiv = TRUE) {
.Call('_PPtreeExt_findproj1D', PACKAGE = 'PPtreeExt', origclass, origdata, PPmethod, lambda, entro, entroindiv)
}
arma_sub_cond <- function(x, val) {
.Call('_PPtreeExt_arma_sub_cond', PACKAGE = 'PPtreeExt', x, val)
}
quantileCpp <- function(x, probs) {
.Call('_PPtreeExt_quantileCpp', PACKAGE = 'PPtreeExt', x, probs)
}
quant <- function(x, q) {
.Call('_PPtreeExt_quant', PACKAGE = 'PPtreeExt', x, q)
}
nodestr <- function(classe, projdata) {
.Call('_PPtreeExt_nodestr', PACKAGE = 'PPtreeExt', classe, projdata)
}
findprojwrapMOD <- function(origclass, origdata, PPmethod, sizep = 1, lambda = .1, entro = TRUE, entroindiv = FALSE) {
.Call('_PPtreeExt_findprojwrapMOD', PACKAGE = 'PPtreeExt', origclass, origdata, PPmethod, sizep, lambda, entro, entroindiv)
}
treeconstructMOD <- function(origclass, origdata, Treestruct, id, rep, rep1, rep2, projbestnode, splitCutoffnode, PPmethod, lambda = 0.1, sizep = 1, entro = TRUE, entroindiv = FALSE) {
.Call('_PPtreeExt_treeconstructMOD', PACKAGE = 'PPtreeExt', origclass, origdata, Treestruct, id, rep, rep1, rep2, projbestnode, splitCutoffnode, PPmethod, lambda, sizep, entro, entroindiv)
}
treeconstructIND <- function(origclass, origdata, Treestruct, id, rep, rep1, rep2, projbestnode, splitCutoffnode, PPmethod, lambda = 0.1, sizep = 1, entro = FALSE, entroindiv = TRUE, tot = 10L, iter = 0L) {
.Call('_PPtreeExt_treeconstructIND', PACKAGE = 'PPtreeExt', origclass, origdata, Treestruct, id, rep, rep1, rep2, projbestnode, splitCutoffnode, PPmethod, lambda, sizep, entro, entroindiv, tot, iter)
}
csample_num <- function(x, size, replace, prob) {
.Call('_PPtreeExt_csample_num', PACKAGE = 'PPtreeExt', x, size, replace, prob)
}
boot <- function(origclass, origdata) {
.Call('_PPtreeExt_boot', PACKAGE = 'PPtreeExt', origclass, origdata)
}
trainfn <- function(origclass, origdata, sizetr) {
.Call('_PPtreeExt_trainfn', PACKAGE = 'PPtreeExt', origclass, origdata, sizetr)
}
proximi <- function(predtrnt, m) {
.Call('_PPtreeExt_proximi', PACKAGE = 'PPtreeExt', predtrnt, m)
}
mvote <- function(votes) {
.Call('_PPtreeExt_mvote', PACKAGE = 'PPtreeExt', votes)
}
oobindex <- function(datab, m) {
.Call('_PPtreeExt_oobindex', PACKAGE = 'PPtreeExt', datab, m)
}
oobobs <- function(index) {
.Call('_PPtreeExt_oobobs', PACKAGE = 'PPtreeExt', index)
}
mvoteoob <- function(votes, oobobs) {
.Call('_PPtreeExt_mvoteoob', PACKAGE = 'PPtreeExt', votes, oobobs)
}
ooberrortree <- function(votes, oobobs, classe, m) {
.Call('_PPtreeExt_ooberrortree', PACKAGE = 'PPtreeExt', votes, oobobs, classe, m)
}
PPclassification <- function(Treestruct, testclassindex, IOindex, testclass, id, rep) {
.Call('_PPtreeExt_PPclassification', PACKAGE = 'PPtreeExt', Treestruct, testclassindex, IOindex, testclass, id, rep)
}
PPclassindex <- function(classtemp, testclassindex, testdata, Treestruct, AlphaKeep, CKeep, id, Rule) {
.Call('_PPtreeExt_PPclassindex', PACKAGE = 'PPtreeExt', classtemp, testclassindex, testdata, Treestruct, AlphaKeep, CKeep, id, Rule)
}
PPpred <- function(TRstr, TRprnode, TRspl, testdata) {
.Call('_PPtreeExt_PPpred', PACKAGE = 'PPtreeExt', TRstr, TRprnode, TRspl, testdata)
}
imposoon <- function(train, classes, oobid, permute, trees, noob, TRstrL, TRsplL, TRprnodeL) {
.Call('_PPtreeExt_imposoon', PACKAGE = 'PPtreeExt', train, classes, oobid, permute, trees, noob, TRstrL, TRsplL, TRprnodeL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.