# NOT RUN {
#### Giannone et al (2008) - Example
trans<-giannoneetal2008$Legenda$Transformation[-length(giannoneetal2008$Legenda$Transformation)]
base<-giannoneetal2008$Base[,-dim(giannoneetal2008$Base)[2]]
gdp<-giannoneetal2008$Base[,dim(giannoneetal2008$Base)[2]]
# Balanced Panel
base<-Bpanel(base = base,trans = trans)
# Estimation of nowcast
now<-nowcast(y = gdp,regressors = base)
# Main results:
now$main
ts.plot(now$main,col=1:3,main='Main results')
# the results are not the same as in the reference paper because we make some changes
# in the outlier correction function.
# Factors:
now$factors$fator_final
ts.plot(now$factors$fator_final,col=1:2,main='Factors')
# }
Run the code above in your browser using DataLab