<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>