Given a likelihood provided by the user, this package applies it to a given matrix dataset in order to find change points in the data that maximize the sum of the likelihoods of all the segments.
This package provides a handful of algorithms with different time complexities and assumption compromises so the user is able to choose the best one for the problem at hand.
You can install segmentr from GitHub using:
# install.packages("devtools")
devtools::install_github("thalesmello/segmentr", build_vignettes = TRUE)Sample code using the package to identify change points in the segments’ means:
require(segmentr)
#> Loading required package: segmentr
make_segment <- function(n, p) matrix(rbinom(100 * n, 1, p), nrow = 100)
data <- cbind(make_segment(5, 0.1), make_segment(10, 0.9), make_segment(2, 0.1))
mean_lik <- function(X) abs(mean(X) - 0.5) * ncol(X)^2
segment(data, likelihood = mean_lik, algorithm = "hieralg")
#> Segments (total of 3):
#>
#> 1:5
#> 6:15
#> 16:17For an in depth step-by-step, please check vignette("segmentr").
This package is part of a Master’s degree research thesis at IME-USP, with Florencia Leonardi as thesis adviser.
The algorithms in this package are based on a paper by Bruno M. de Castro and Florencia Leonardi.
The berlin sample dataset was provided by © Deutscher Wetterdienst and put together with the rdwd package by Berry Boessenkool. Check make_berlin.R for the script that builds the dataset.