Nothing
The goal of ocp is to implement Bayesian Online Changepoint Detection, as described: https://arxiv.org/abs/0710.3742
This is a basic example of how to use the function "onlineCPD" on simulated univariate Gaussian data as input.
library(ocp)
# the true changepoint locations including the first and last point
truecps<- c(1, 51, 71, 121)
#simulate the data
set.seed(1)
uvg<- c(rnorm(n=diff(truecps)[1], mean=0, sd=2),
rnorm(n=diff(truecps)[2], mean=20, sd=4),
rnorm(n=diff(truecps)[3], mean=10, sd=3))
ocpd_output<- onlineCPD(uvg)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.