Running ‘00SetarAndFriends.R’ [4s/5s]
  Comparing ‘00SetarAndFriends.Rout’ to ‘00SetarAndFriends.Rout.save’ ... OK
  Running ‘GIRF_TEST.R’ [12s/14s]
  Comparing ‘GIRF_TEST.Rout’ to ‘GIRF_TEST.Rout.save’ ... OK
  Running ‘TVAR_TEST.R’ [8s/9s]
  Comparing ‘TVAR_TEST.Rout’ to ‘TVAR_TEST.Rout.save’ ... OK
  Running ‘TVECM.sim.R’ [4s/4s]
  Comparing ‘TVECM.sim.Rout’ to ‘TVECM.sim.Rout.save’ ... OK
  Running ‘TVECM_HSTEST.R’ [4s/4s]
  Comparing ‘TVECM_HSTEST.Rout’ to ‘TVECM_HSTEST.Rout.save’ ... OK
  Running ‘VAR_TEST.R’ [4s/5s]
  Comparing ‘VAR_TEST.Rout’ to ‘VAR_TEST.Rout.save’ ... OK
  Running ‘VECM_TEST.R’ [6s/7s]
  Comparing ‘VECM_TEST.Rout’ to ‘VECM_TEST.Rout.save’ ... OK
  Running ‘compare_tsDyn_vars.R’ [5s/5s]
  Comparing ‘compare_tsDyn_vars.Rout’ to ‘compare_tsDyn_vars.Rout.save’ ... OK
  Running ‘irf_nlVAR_TEST.R’ [19s/21s]
  Comparing ‘irf_nlVAR_TEST.Rout’ to ‘irf_nlVAR_TEST.Rout.save’ ... OK
  Running ‘irf_nlar_TEST.R’ [11s/13s]
  Comparing ‘irf_nlar_TEST.Rout’ to ‘irf_nlar_TEST.Rout.save’ ... OK
  Running ‘linear_TEST.R’ [3s/3s]
  Running ‘lstar_TEST.R’ [6s/6s]
  Running ‘nlar-methods_TEST.R’ [11s/12s]
  Comparing ‘nlar-methods_TEST.Rout’ to ‘nlar-methods_TEST.Rout.save’ ... OK
  Running ‘regime.R’ [4s/4s]
  Comparing ‘regime.Rout’ to ‘regime.Rout.save’ ... OK
  Running ‘setar.sim_TEST.R’ [4s/4s]
  Comparing ‘setar.sim_TEST.Rout’ to ‘setar.sim_TEST.Rout.save’ ... OK
  Running ‘setarTest_test.R’ [6s/8s]
  Comparing ‘setarTest_test.Rout’ to ‘setarTest_test.Rout.save’ ... OK
  Running ‘testthat.R’ [17s/19s]
  Running ‘toMlm.R’ [3s/3s]
  Comparing ‘toMlm.Rout’ to ‘toMlm.Rout.save’ ... OK
  Running ‘univ_ar_mean.R’ [3s/4s]
  Comparing ‘univ_ar_mean.Rout’ to ‘univ_ar_mean.Rout.save’ ... OK
Running the tests in ‘tests/linear_TEST.R’ failed.
Complete output:
  > library(tsDyn)
  > suppressWarnings(RNGversion("3.5.3"))
  > 
  > ### linear
  > grid <-  expand.grid(include = c( "const", "trend","none", "both"),
  +                      lag = 1:3)
  > all_lin <- mapply(linear, include = as.character(grid$include),  m = grid$lag, MoreArgs = list(x = lh),
  +                   SIMPLIFY = FALSE)
  > names(all_lin) <-  paste(grid$include, "l", grid$lag, sep="_")
  > lapply(all_lin, coef)
  $const_l_1
      const     phi.1 
  0.9998652 0.5859870 
  
  $trend_l_1
        trend       phi.1 
  0.008879993 0.895448654 
  
  $none_l_1
      phi.1 
  0.9836385 
  
  $both_l_1
        const       trend       phi.1 
  0.960001423 0.007328862 0.529055888 
  
  $const_l_2
       const      phi.1      phi.2 
   1.2281886  0.7110028 -0.2217373 
  
  $trend_l_2
         trend        phi.1        phi.2 
   0.009393203  0.896697060 -0.004950298 
  
  $none_l_2
       phi.1      phi.2 
  0.95299035 0.03115904 
  
  $both_l_2
         const        trend        phi.1        phi.2 
   1.217407570  0.009017984  0.659082417 -0.254184319 
  
  $const_l_3
        const       phi.1       phi.2       phi.3 
   1.53752119  0.65782378 -0.06581322 -0.23483547 
  
  $trend_l_3
        trend       phi.1       phi.2       phi.3 
   0.00960834  0.89440447 -0.06374027  0.06254620 
  
  $none_l_3
        phi.1       phi.2       phi.3 
   0.94986030 -0.05445084  0.09133812 
  
  $both_l_3
        const       trend       phi.1       phi.2       phi.3 
   1.58894725  0.01110629  0.58395447 -0.07693093 -0.27902573 
  
  > 
  > ## compare with ar?
  > ar_1_noMean <- ar(lh, order.max =1, demean = FALSE, method = "ols")
  Error in ar.ols(x, aic = aic, order.max = order.max, na.action = na.action,  : 
    non-conformable arguments
  Calls: ar -> ar.ols
  Execution halted