## Example with IBM data
## data(ibmclose, package = "fma")
moWLprob <- exampleModels$WL_ibm@prob # 2019-12-15; was: c(0.5339,0.4176,0.0385)
moWLsigma <- exampleModels$WL_ibm@scale # c(4.8227,6.0082,18.1716)
moWLar <- list(-0.3208, 0.6711,0) # @Davide - is this from some model?
moWLibm <- new("MixARGaussian", prob = moWLprob, scale = moWLsigma, arcoef = moWLar)
IBM <- diff(fma::ibmclose)
mix_se(as.numeric(IBM), moWLibm, fix_shift = TRUE)$'standard_errors'
Run the code above in your browser using DataLab