[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