# NOT RUN {
Q <- cumsum(rnorm(100))
C <- Q[11:100] + rnorm(90, 0, 0.5)
# initial calculation
res0 <- idtw2vec(Q=Q, newObs = C, gcm_lc = NULL)
# incremental calculation for new observations
res1 <- idtw2vec(Q, newObs = rnorm(10), gcm_lc = res0$gcm_lc_new)
# }
Run the code above in your browser using DataLab