[R-br] Uso do ifelse

Maurício Lordêlo mslordelo em gmail.com
Ter Out 15 12:48:59 -03 2024


#Olá,
#saudações a tod em s!!!
#Vou precisar várias comparações múltiplas usando o
#teste de Scott Knott
#Quero no final, capturar as letras e formar um único vetor

#No exemplo abaixo, só serão formados dois "grupos"
#Porém pode acontecer de formar um, três ou quatro
#Não acontecerá de cinco ou mais

#Usei o "ifelse" para isso, porém o retorno é um
#vetor de tamanho 1
library(ScottKnott)
data(RCBD)
sk1 <- with(RCBD,
            SK(y ~ blk + tra,
               data=dfm,
               which='tra'))
sk1$out$Result   #aqui eu verifico a formação de dois grupos

#O objeto que vai ser gerado no final, deveria ser igual a este
#aqui
grupos = c(sk1$out$Result$G1,
                  sk1$out$Result$G2)
grupos[nzchar(grupos)]

#Porém, isso não acontece quando eu uso o "ifelse"
rm(grupos)
grupos = ifelse(dim(sk1$out$Result)[2] == 5, c(sk1$out$Result$G1,
                                               sk1$out$Result$G2,
                                               sk1$out$Result$G3,
                                               sk1$out$Result$G4),
            ifelse(dim(sk1$out$Result)[2] == 4, c(sk1$out$Result$G1,
                                                  sk1$out$Result$G2,
                                                  sk1$out$Result$G3),
                   ifelse(dim(sk1$out$Result)[2] == 3, c(sk1$out$Result$G1,

 sk1$out$Result$G2),
                          sk1$out$Result$G1)))
grupos

#O que há de errado?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20241015/addf5973/attachment.htm>


Mais detalhes sobre a lista de discussão R-br