<div dir="ltr">#Olá,<br>#saudações a tod@s!!!<br>#Vou precisar várias comparações múltiplas usando o<br>#teste de Scott Knott<br>#Quero no final, capturar as letras e formar um único vetor<br><br>#No exemplo abaixo, só serão formados dois "grupos"<br>#Porém pode acontecer de formar um, três ou quatro<br>#Não acontecerá de cinco ou mais<br><br>#Usei o "ifelse" para isso, porém o retorno é um <br>#vetor de tamanho 1<br>library(ScottKnott)<br>data(RCBD)<br>sk1 <- with(RCBD,<br>            SK(y ~ blk + tra,<br>               data=dfm,<br>               which='tra'))<br>sk1$out$Result   #aqui eu verifico a formação de dois grupos<br><br>#O objeto que vai ser gerado no final, deveria ser igual a este<br>#aqui <br>grupos = c(sk1$out$Result$G1,<br>                  sk1$out$Result$G2)<br>grupos[nzchar(grupos)]<br><br>#Porém, isso não acontece quando eu uso o "ifelse"<br>rm(grupos)<br>grupos = ifelse(dim(sk1$out$Result)[2] == 5, c(sk1$out$Result$G1, <br>                                               sk1$out$Result$G2, <br>                                               sk1$out$Result$G3,<br>                                               sk1$out$Result$G4),<br>            ifelse(dim(sk1$out$Result)[2] == 4, c(sk1$out$Result$G1, <br>                                                  sk1$out$Result$G2, <br>                                                  sk1$out$Result$G3),<br>                   ifelse(dim(sk1$out$Result)[2] == 3, c(sk1$out$Result$G1,<br>                                                         sk1$out$Result$G2), <br>                          sk1$out$Result$G1)))<br>grupos<br><br>#O que há de errado?<br></div>