tests/testthat/shiny-outlierssetcoef/app.R

In arnaud-feldmann/disaggR: Two-Steps Benchmarks for Time Series Disaggregation

library(shiny)
library(disaggR)
ui <- disaggR:::reView_ui()

server <-  disaggR:::reView_server(twoStepsBenchmark(turnover,construction,
                                                     outliers = list(AO2005 = rep(0.1,12L)),
                                                     set.coeff = c(AO2005 = 1)),
                                   as.symbol("turnover"),as.symbol("construction"),
                                   TRUE)

shinyApp(ui = ui, server = server)