if (FALSE) {
impact <- CausalImpact(...)
# Print a summary table
print(impact)
summary(impact)
# Print a verbal analysis description
print(impact, "report")
summary(impact, "report")
# Create a plot
plot(impact)
plot(impact, "original")
plot(impact, "pointwise")
plot(impact, "cumulative")
plot(impact, c("original", "pointwise"))
# Customize a plot
impact.plot <- plot(impact)
impact.plot <- impact.plot + theme_bw(base_size = 20)
}
Run the code above in your browser using DataLab