<div dir="ltr">Vi que "ifelse" não retorna vetor.<div>Buscando alternativas para isso.</div><div><br><div><br><div><br></div></div></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 15 de out. de 2024 às 12:48, Maurício Lordêlo <<a href="mailto:mslordelo@gmail.com">mslordelo@gmail.com</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><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>
</blockquote></div>