tests/demo.R

setwd("c:\\Users\\XinZhou\\Documents\\GitHub\\lmdecomp\\data-raw") # set work directory
library(lmdecomp) # load package
data=fread("input_data.csv") # load data
var=fread("input_var.csv") # load variable coefficients
submodel=fread("input_submodel.csv")

result=decomp_log(
  input_data=data, # raw data 
  input_var=var, # variable coefficient table
  y="sales", # dependent variable name in input_data
  y_m=NULL, # for ninah index process
  date="week", # date variable name in input_data
  cs=c("cs1","cs2"), # variable names for cross section in input_data; support multiple dimensions
  sm_factor=0.9, # smoothing factor for base exponential smooting, the bigger the more weight on current status, 0 means no smooth 
  is.output=F, # if True, then output decomp and contribution results to work directiory
  is.index=F # for ninah index process
)

runApp(result$app) # activate output panel
xinzhou1023/lmdecomp documentation built on May 4, 2019, 1:07 p.m.