Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
na_matrix <- function(n) {
.Call('_dpseg_na_matrix', PACKAGE = 'dpseg', n)
}
backtrace_c <- function(imax, jumps = 0L) {
.Call('_dpseg_backtrace_c', PACKAGE = 'dpseg', imax, jumps)
}
recursion_linreg_c <- function(x, y, maxl, jumps = 0L, P = 0, minl = 3L, S0 = 1.0, type = "var", storem = 0L, storev = 1L, scoref = "dummy") {
.Call('_dpseg_recursion_linreg_c', PACKAGE = 'dpseg', x, y, maxl, jumps, P, minl, S0, type, storem, storev, scoref)
}
recursion_matrix <- function(x, y, maxl, jumps = 0L, P = 0, minl = 3L, S0 = 1.0, type = "matrix", storem = 0L, storev = 1L, scoref = "dummy") {
.Call('_dpseg_recursion_matrix', PACKAGE = 'dpseg', x, y, maxl, jumps, P, minl, S0, type, storem, storev, scoref)
}
scoref_c <- function(x, y, minl, maxl, P, S0, type = "var", jumps = 1L, storem = 0L, storev = 1L) {
.Call('_dpseg_scoref_c', PACKAGE = 'dpseg', x, y, minl, maxl, P, S0, type, jumps, storem, storev)
}
scoref_oldc <- function(x, y, minl, maxl, P, S0, type = "var", jumps = 0L, storem = 0L, storev = 1L) {
.Call('_dpseg_scoref_oldc', PACKAGE = 'dpseg', x, y, minl, maxl, P, S0, type, jumps, storem, storev)
}
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.