# NOT RUN {
data <- Bpanel(base = USGDP$base,
trans = USGDP$legend$Transformation,
aggregate = FALSE)
frequency <- c(rep(12, ncol(data) -1), 4)
now2s_agg <- nowcast(formula = RGDPGR ~ ., data = data, r = 2, p = 2, q = 2,
method = '2s_agg', frequency = frequency)
nowcast.plot(now2s_agg, type = "fcst")
nowcast.plot(now2s_agg, type = "factors")
nowcast.plot(now2s_agg, type = "eigenvalues")
nowcast.plot(now2s_agg, type = "eigenvectors")
# }
Run the code above in your browser using DataLab