get_grooves_bcp function

Conforming get_grooves_"name" function.

This is a wrapper function that comforms to the other get_grooves functions.

get_grooves_bcp(x, value, adjust = 10, ...)

Arguments

• x: numeric vector of locations in microns
• value: numeric vector of surface measurements in microns
• adjust: positive number to adjust the grooves - XXX should be expressed in microns rather than an index
• ...: Additional arguments to be passed to detect_cp_v2.

Returns

A named list containing the output from variable_cp_gibbs function, the range of data that was actually used for the changepoint algorithm (since it doesn't impute values past the outermost non-missing values), and the estimated groove locations.

Examples

data("example_data")
head(raw_data)
raw_data <- raw_data[seq(from = 1, to = nrow(raw_data), by = 30),]
cp_gibbs3 <- get_grooves_bcp(x = raw_data$x,
    value = raw_data$value,
    adjust = 10,
    iter = 300,
    warmup = 100)