<div dir="ltr">Muito obrigado!</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 15 de out. de 2024 às 13:30, Cid Póvoas por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</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"><br>if (dim(sk1$out$Result)[2] == 5) {<br> grupos <- c(sk1$out$Result$G1, <br> sk1$out$Result$G2, <br> sk1$out$Result$G3, <br> sk1$out$Result$G4)<br>} else if (dim(sk1$out$Result)[2] == 4) {<br> grupos <- c(sk1$out$Result$G1, <br> sk1$out$Result$G2, <br> sk1$out$Result$G3)<br>} else if (dim(sk1$out$Result)[2] == 3) {<br> grupos <- c(sk1$out$Result$G1, <br> sk1$out$Result$G2)<br>} else {<br> grupos <- sk1$out$Result$G1<br>}<br><br>grupos<br><br>rm(grupos)<br><br>library(dplyr)<br><br>grupos <- case_when(<br> dim(sk1$out$Result)[2] == 5 ~ list(c(sk1$out$Result$G1, <br> sk1$out$Result$G2, <br> sk1$out$Result$G3, <br> sk1$out$Result$G4)),<br> dim(sk1$out$Result)[2] == 4 ~ list(c(sk1$out$Result$G1, <br> sk1$out$Result$G2, <br> sk1$out$Result$G3)),<br> dim(sk1$out$Result)[2] == 3 ~ list(c(sk1$out$Result$G1, <br> sk1$out$Result$G2)),<br> TRUE ~ list(sk1$out$Result$G1)<br>)<br><br>grupos <- unlist(grupos) <br><br>rm(grupos)<br><br><br>num_grupos <- min(dim(sk1$out$Result)[2], 10)<br><br># Criar dinamicamente a lista de grupos<br>grupos <- unlist(lapply(1:num_grupos, function(i) sk1$out$Result[[paste0('G', i)]]))<br><br>grupos<br><div><div dir="ltr" class="gmail_signature"><div dir="ltr"><br><div><div><font color="#073763"><b><i>Cid Edson Mendonça Póvoas</i></b></font></div><div><b><i><font color="#073763">Agrônomo - </font></i></b><i style="color:rgb(7,55,99)"><b>Data Analyst - Crop Protection & Seeds</b></i><br></div><div><i style="color:rgb(7,55,99)"><b>Tel: </b>+55 73 99151-9565</i><br></div><div style="text-align:center"><div style="text-align:left"><font color="#073763"><span style="font-size:12.8px"><b>Lattes : </b></span><span style="font-size:12.8px"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank">http://lattes.cnpq.br/2303498368142537</a></span><br></font></div></div><div style="text-align:center"><div><div style="text-align:left"><span style="font-size:12.8px"><font color="#073763"><b>LinkedIn :</b> <a href="http://br.linkedin.com/in/cidedson/" target="_blank">http://br.linkedin.com/in/cidedson/</a></font></span></div><div style="text-align:left"><font color="#073763"><b>Whatsapp :</b> <a href="https://wa.me/5573991519565" target="_blank">https://wa.me/5573991519565</a></font></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 15 de out. de 2024 às 12:56, Maurício Lordêlo por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</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>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>