R/RcppExports.R

In slopeOP: Change-in-Slope OP Algorithm with a Finite Number of States

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

slopeOPtransfer <- function(data, states, penalty, constraint = "null", minAngle = 0, type = "channel") {
    .Call('_slopeOP_slopeOPtransfer', PACKAGE = 'slopeOP', data, states, penalty, constraint, minAngle, type)
}

slopeSNtransfer <- function(data, states, nbSegments, constraint = "null") {
    .Call('_slopeOP_slopeSNtransfer', PACKAGE = 'slopeOP', data, states, nbSegments, constraint)
}

#' @title linearOP
#' @description
#' An optimal partitioning algorithm with a linear fit for each segment
#' @name linearOP
#' @param x a vector (see data)
#' @param data a vector defining the data points (x[i], data[i])
#' @param penalty the penalty for introducing a new segment
#' @param cc a boolean to impose a continuity constraint
#'
#' @export
linearOP <- function(x, data, penalty, cc = FALSE) {
    .Call('_slopeOP_linearOP', PACKAGE = 'slopeOP', x, data, penalty, cc)
}