# \donttest{
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(res, y[1000+ahead,], ahead = ahead, each = 10)
print(scores)
# }
Run the code above in your browser using DataLab