R: foreach multiple argument

future::plan(future::multisession)
n_cores <- parallel::detectCores()
cl <- parallel::makeCluster(n_cores)
doParallel::registerDoParallel(cores = n_cores)
auto_ar1 <- function(i, n, ar){
  set.seed(i)
  ar1 <- arima.sim(n, model = list(ar, order = c(1, 0, 0)), sd = 1)
  ar2 <- auto.arima(ar1, ic = "aicc")
  (cf <- ar2$coef)
  if (length(cf) == 0) {
    rep(NA, 2)
  }
  else if (all(grepl(c("ar1|intercept"), names(cf))) &
           substr(cf["ar1"], 1, 4) %in% "0.80") {
    c(cf, seed = I)
  }
  else {
    rep(NA, 2)
  }
  foreach::foreach(i, .packages = c('foreach', 'forecast')) %dopar% I
}
auto_ar1(i = 289800:289805, n=10, ar=0.8)

#Error in arima.sim(n, model = list(ar, order = c(1, 0, 0)), sd = 1) : 
#inconsistent specification of 'ar' order

Source: stackoverflow.com

Similar codes

1 vote162 views3 answers
R merge by two columns
R
0 vote156 views1 answer
Add padding to number r
R
0 vote145 views1 answer
Conditional mean statement r
R
0 vote148 views4 answers
R - change column name
R
0 vote136 views1 answer
Ggplot - subset top 10 in a stack bar plot
R
0 vote137 views1 answer
Collapse text by group in dataframe r
R
0 vote146 views1 answer
Combine row for every element of vector r
R
0 vote150 views1 answer
Replace any NA in a data frame in r
R
0 vote139 views1 answer
Remove first and last character from string R
R
0 vote168 views1 answer
In r corr Cannot compute exact p-value with ties
R