# NOT RUN {
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)
# }
Run the code above in your browser using DataLab