# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
derivative_coeffient_matrix <- function(m, p) {
.Call('_polygrams_derivative_coeffient_matrix', PACKAGE = 'polygrams', m, p)
}
integral_coeffient_matrix <- function(m, p) {
.Call('_polygrams_integral_coeffient_matrix', PACKAGE = 'polygrams', m, p)
}
dbernstein_cpp <- function(x, lambda, support, log = FALSE) {
.Call('_polygrams_dbernstein_cpp', PACKAGE = 'polygrams', x, lambda, support, log)
}
pbernstein_cpp <- function(q, lambda, support, log = FALSE) {
.Call('_polygrams_pbernstein_cpp', PACKAGE = 'polygrams', q, lambda, support, log)
}
dxbernstein_cpp <- function(x, lambda, support, p, log = FALSE) {
.Call('_polygrams_dxbernstein_cpp', PACKAGE = 'polygrams', x, lambda, support, p, log)
}
dxpolygram_cpp <- function(x, w, ms, s_aug, p, log = FALSE) {
.Call('_polygrams_dxpolygram_cpp', PACKAGE = 'polygrams', x, w, ms, s_aug, p, log)
}
#' A function that calculates the objective vector of a polygram. Needed for
#' the quadratic optimization routine, and can be of independent interest.
#'
#'
#' @param x a Armadillo<double> vector containing the data
#' @param ms an Armadillo<integer> vector containing the Bernstein degrees. Must be
#' of size |s| + 1
#' @param s_aug an Armadillo<double> vector containing the splits, endpoints not included.
#' @return an Armadillo<double> of size \code{sum(ms+1)} that contains the
#' objective vector for the optimization program.
polygram_objective_vector <- function(x, ms, s, support) {
.Call('_polygrams_polygram_objective_vector', PACKAGE = 'polygrams', x, ms, s, support)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.