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 <mslord...@gmail.com> escreveu: > #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? >
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
