if (length(indices)>0) as.matrix(series[,indices]) else NULL
}
- synchrones <- computeSynchrones(cbind(s1,s2,s3),getSeries,n,100,verbose=TRUE,parll=FALSE)
+ synchrones <- computeSynchrones(cbind(s1,s2,s3),getSeries,n,100,verbose=TRUE)
expect_equal(dim(synchrones), c(L,K))
for (i in 1:K)