Nothing
####### examples from User's Guide section 6
require("dse")
data("eg1.DSE.data", package = "dse")
cat("Estimation...\n")
model.eg1.ls <- estVARXls(trimNA(eg1.DSE.data), warn=F)
subsample.data <- tfwindow(eg1.DSE.data,start=c(1972,1),end=c(1992,12),
warn=FALSE)
summary(model.eg1.ls)
model.eg1.ls # or print(model.eg1.ls)
tfplot(model.eg1.ls)
tfplot(model.eg1.ls, start=c(1990,1))
checkResiduals(model.eg1.ls, plot.=F, pac=T)
model.eg1.ss <- estSSfromVARX(trimNA(eg1.DSE.data))
summary(model.eg1.ss)
model.eg1.ss # or print(model.eg1.ss)
informationTests(model.eg1.ls, model.eg1.ss)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.