r-按任意顺序计数，直到得到1个顺序(1，0，0)

Question

我曾经得到一个问题的答案，即如果"arima.sim(("函数的运行次数为R计数`auto.arima((`确认`arima.sim((`为True 的时间

cnt <- 0
for(i in 1:10) { 
ar1 <- arima.sim(n = 80, model=list(ar=0.8, order = c(1, 0, 0)))
ar2 <- auto.arima(ar1)
if(all(arimaorder(ar2) == c(1, 0, 0))) cnt <- cnt + 1}
cnt

如何计算循环中运行arima.sim(n = 80, model=list(ar=0.8, order = c(1, 0, 0)))函数的次数，才能知道有多少次顺序不是(1, 0, 0)' until it get order '(1, 0, 0)？

Answer 1

如果不是订单，可以使用while循环并计数循环，如果是，则停止

count <-0
while(TRUE){
ar1 <- arima.sim(n = 80, model=list(ar=0.8, order = c(1, 0, 0)))
ar2 <- auto.arima(ar1)
if(all(arimaorder(ar2)==c(1,0,0))) break
count <- count + 1
}
count