# NOT RUN {
pri1 <- promotionImpact(data=sim.data, promotion=sim.promotion,
time.field = 'dt', target.field = 'simulated_sales',
trend = FALSE, period = NULL, structural.change = FALSE,
logged = TRUE, differencing = TRUE, synergy.promotion = FALSE,
synergy.var = NULL, allow.missing = TRUE)
out <- detectOutliers(model = pri1,
threshold = list(cooks.distance=1, dfbetas=1, dffits=2), option = 1)
# }
Run the code above in your browser using DataLab