[R-br] Uso do ifelse
Maurício Lordêlo
mslordelo em gmail.com
Ter Out 15 13:25:28 -03 2024
Vi que "ifelse" não retorna vetor.
Buscando alternativas para isso.
Em ter., 15 de out. de 2024 às 12:48, Maurício Lordêlo <mslordelo em gmail.com>
escreveu:
> #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/fb5ac7b0/attachment.htm>
Mais detalhes sobre a lista de discussão R-br