data(synthetic.tseries)
#create the ground thruth cluster
G <- rep(1:6, each = 3)
#obtain candidate distance matrix (dist object)
dACF <- diss(synthetic.tseries, "ACF")
#calculate the cross-validation
loo1nn.cv(dACF, G)
Run the code above in your browser using DataLab