#Olá, #saudações a tod@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?