Estou usando esse comando para calcular 4 valores extraídos de um sumário da função sem (sem_smry). São realizadas 100 tentativas onde, caso relate erro, a tentativa é contada mas não computada. Preciso contar as tentativas "com erro" mas fazer com que esses erros não sejam armazenados numa matriz. Ao final a matriz deve conter 100 valores numéricos. Hoje a matriz guarda os valores obtidos e, nas tentativas erradas, guarda NA. Como posso pular as tentativas erradas, mas contar esses erros. O código abaixo é a parte do programa que conta as tentativas erradas e guarda os valores estimados, quando não dá erro.
for (j in 1:length(pp)) {
for (i in 1:100) {
n0 <- sem_smry(dados, cfa, pp[j])
if (any(class(n0) == "try-error")) {
nnc[j] <- nnc[j] + 1
} else {
RMSEA[i]<- n0[["RMSEA"]][1]
NFI[i]<-n0[["NFI"]]
GFI[i]<-n0[["GFI"]]
CFI[i]<-n0[["CFI"]]
}
Indices <- cbind(RMSEA, GFI, NFI, CFI)
}
[EDIT] Como pedido, vou explicar melhor o problema. Na execução do código anterior, o resultado da matriz é o seguinte:
[1,] 0.12487090 0.7439197 0.8193802 0.9197872
[2,] 0.05692412 0.8101720 0.8266571 0.9755843
[3,] 0.11701959 0.7300448 0.7942616 0.9129401
[4,] 0.10471572 0.7821648 0.8551393 0.9498845
[5,] 0.09479998 0.7788558 0.8503112 0.9544811
[6,] 0.13484758 0.7301779 0.7921450 0.8972345
[7,] 0.12166489 0.7644818 0.8204229 0.9226289
[8,] 0.10654332 0.7783956 0.8157848 0.9319917
[9,] 0.19616764 0.6322465 0.6992935 0.8351372
[10,] NA NA NA NA
[11,] 0.17654647 0.6631480 0.7123008 0.8594085
...
Como é possível ver, na linha 10, a matriz guarda os valores de NA, no entanto, gostaria que o código não guardasse esses valores e sim, continuasse a execução do loop, guardando o valor de 11 em 10 e assim por diante mas ainda mantendo as 100 execuções esperadas para a iteração, o resultado esperado é uma matriz com os mesmos 100 valores da anterior mas apenas contendo apenas os números.
Anteriormente, dentro do IF do for tentei voltar a posição de i, caso acontecesse um problema usando i <= i - 1, para executar o loop e passar por cima dos valores de NA quando acontecem, mas não obtive sucesso.
dput(head(dados))
).} else {
porif(is.na(n0[["RMSEA"]][1])) next
.