The goal of ccid is to implement the Cross-Covariance Isolate Detect (CCID) methodology for the estimation of the number and location of multiple change-points in the second-order (cross-covariance or network) structure of multivariate, possibly high-dimensional time series. The method is motivated by the detection of change points in functional connectivity networks for functional magnetic resonance imaging (fMRI), electroencephalography (EEG), magentoencephalography (MEG) and electrocorticography (ECoG) data. The main routines in the package have been extensively tested on fMRI data. For details on the CCID methodology, please see Anastasiou et al (2020).

You can install the released version of ccid from CRAN with:

`install.packages("ccid")`

These are two basic examples which show you how to detect changes (if there are any) in the second-order (cross-covariance or network) structure of multivariate, possibly high-dimensional time series.

```
library(ccid)
## An example of three change-points in the cross-covariance structure
## of a multivariate time series of length 400 and dimensionality equal to 40.
set.seed(111111)
<- 40 # number of nodes
num.nodes .1 <- 0.95
etaA.2 <- 0.05
etaA<- GeneNet::ggm.simulate.pcor(num.nodes, etaA = etaA.1)
pcor1 <- GeneNet::ggm.simulate.pcor(num.nodes, etaA = etaA.2)
pcor2
<- 100
n <- GeneNet::ggm.simulate.data(n, pcor1)
data1 <- GeneNet::ggm.simulate.data(n, pcor2)
data2
<- rbind(data1, data2, data1, data2) ## change-points at 100, 200, 300
X1 <- detect.ic(X1, approach = 'euclidean', scales = -1)
N1 <- detect.ic(X1, approach = 'infinity', scales = -1)
N2 $changepoints
N1#> [1] 100 199 300
$changepoints
N2#> [1] 100 199 300
$no.of.cpts
N1#> [1] 3
$no.of.cpts
N2#> [1] 3
## An example of no change-points.
set.seed(11)
<- matrix(rnorm(20*400), nrow = 400) ## No change-point
A <- detect.ic(A, approach = 'euclidean', scales = -1)
M1 <- detect.ic(A, approach = 'infinity', scales = -1)
M2 $changepoints
M1#> [1] NA
$changepoints
M2#> [1] NA
```