## Not run:
# set.seed(1)
#
# # Simulate a time series of length 1100:
# sim <- fsvsim(n = 1100, series = 3, factors = 1)
# y <- sim$y
#
# # Estimate using only 1000 days:
# res <- fsvsample(y[seq_len(1000),], factors = 1)
#
# # Evaluate the 1, 10, and 100 days ahead predictive log
# # likelihood:
# ahead <- c(1, 10, 100)
# scores <- predloglikWB(y[1000+ahead,], res, ahead = ahead, each = 10)
# print(scores)
# ## End(Not run)
Run the code above in your browser using DataLab