<html><head></head><body><div class="ydp1c2ad220yahoo-style-wrap" style="font-family:verdana, helvetica, sans-serif;font-size:16px;"><div></div>
<div dir="ltr" data-setdir="false">Prezado Walmes,</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false">Primeiramente perdao pela falha. Faco parte da lista desde uns 3 anos atras, quando comecei a usar o R de fato.</div><div dir="ltr" data-setdir="false">No inicio foi mais por manter antenado nas possibilidades e aprender com duvidas de colegas que usam ou usaram esse canal.</div><div dir="ltr" data-setdir="false">O email do Jose me encorajou a enviar um pedido de ajuda.</div><div dir="ltr" data-setdir="false">Comumente vejo emails sobre a questao de <span>reprodutibilidade e dei muita atencao a isso e nao em uma ponto basico sobre o codigo de conduta que li la tras qdo entrei na lista, o que deveria ter percebido pq nao lembro de ter visto alguem anexando nada. Enfim, aprendido.</span></div><div dir="ltr" data-setdir="false"><span><br></span></div><div dir="ltr" data-setdir="false"><span>Segundo, obrigado pelo compartilhamento da sua visao e do codigo. Com certeza elucidou muita coisa pra mim.</span></div><div dir="ltr" data-setdir="false"><span><br></span></div><div dir="ltr" data-setdir="false">Ate mais</div><div dir="ltr" data-setdir="false">Henrique</div><div><br></div>
</div><div id="yahoo_quoted_0706997004" class="yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em quarta-feira, 2 de outubro de 2019 10:05:37 GMT-4, Walmes Zeviani <walmeszeviani@gmail.com> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="yiv5875254943"><div><div dir="ltr"><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Henrique,</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Bom que você conferiu reprodutibilidade MAS o código de conduta da lista pede para que não sejam enviados anexos para a lista.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Existem outras formas de conferir acesso aos dados sem que seja por anexo, ok?</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">> As dúvidas, além de saber se estou ou não num caminho lúcido em termos da estatística:<br clear="none">> 1) Em alguns casos houve violação de alguma pressuposição (estou testando norm. dos residuos e homogeneidade apenas),</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">> como para a variável resposta 3, no local II colhido na idade 8.<br clear="none">> - Procedo com alguma transformação ? tipo utilizar boxcox e ver qual melhor forma de transformar os dados ?<br clear="none">> - Ou Parto para outro tipo de abordagem ? alguma sugestão ?</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Nem uma coisa nem outra. Segue com a análise usual. Por que? Bem, para começar, você sabe que, se o nível de significância é de 5%, 1 em cada 20 análises (em média) irá rejeitar a hipótese nula mesmo que ela seja verdadeira. É o erro tipo I. Então, o que está acontecendo com você é basicamente isso. De tanto fazer testes, uma hora haverá uma rejeição que pode ser apenas casual. Não rodei seu script para saber se de fato a rejeição deve-se a alguma anomalia grave. Mas de qualquer forma, fica aí o raciocínio. Outro ponto, eu não gosto dessa abordagem "pilha de testes de hipóteses". Prefiro, ainda que seja considerado subjetiva, a análise gráfica dos resíduos porque a leitura conjunta dos gráficos subsidia alguma ação em caso de necessidade, coisa que o teste não faz porque ele diz apenas "sim" e "não". Um último ponto, sendo a mesma variável resposta vista em divisões dos dados (por local, por época, etc), não seria desejável aplicar uma transformação diferente em cada fração. O melhor seria encontrar uma transformação que seja adequada para todas as frações. Você pode examinar isso graficamente, fazer uma boa análise exploratória e depois de ajustar o modelo, fazer uma boa análise dos resíduos.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">A `VariavelResposta1`, por exemplo, mostra um aumento de variabilidade em função da idade, coisa que é comum em dados de crescimento (não se é o caso). No início as unidades experimentais de um mesmo tratamento são mais parecidas, mas com o passar do tempo na exposição aos várias fatores não controlados, as diferenças nas variáveis resposta tendem a aumentar, aumentando portanto a variância do erro. Talvez uma transformação log, raíz, etc, resolva isso. Mas nada impede de modelar a variância conjuntamente com a média (sem querer complicar).<br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">> 2) Há alguma forma de análise considerando as todas as idades?</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Se você considerar representar efeito do fator idade (fator quantitativo) por alguma função, por exemplo, polinômio, então mesmo não tendo as mesmas idades (mesmo sendo um fatorial incompleto) nas cultivares, você vai analisar tudo conjuntamente com facilidade. Se assumir idade como variável quantitativa (o que não é recomendável pela própria natureza da variável), aí você terá um fatorial incompleto que é coisa complicada de analisar por causa das celas ausentes.<br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">> 3) Ao menos duas idades e 3 dos cultivares são comuns em ambos os locais, seria muito abusado tentar realizar uma análise conjunta</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">> apenas para essas cultivares? (com abordagem similar ao proposto para o caso do José)</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Poderia ser feito. A idade não é preocupação se for usado regressão nela. Mas a análise exploratória que fiz indica que só existe uma época comum aos dois locais. Dessa forma não tem como declara interação local:epoca, pois pela ausência de mais combinações comuns, o efeito de interação não é estimável se época for considerado fator qualitativo. Se for quantitativo, assumindo uma função, então daria para estimar/representar a interação.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Tudo isso vai do seu interesse e disposição em fazer a análise. Ao meu ver, o experimento parece não ter sido planejado para uma análise conjunta visando estimar interação etc. O jeito mais tranquilo é analisar os locais separados, até mesmo porque, não se tem como inferir sobre o efeito de local (não creio que essa seja a hipótese), e uma vez que estimar a interação local:epoca é complicado neste caso, não sei se compensa o esforço. A interação local:cultivar dá para estimar, mas apenas baseando-se em 3 cultivares comuns aos locais, mas tendo em mente que as épocas de cultivo foram diferentes (apenas uma comum), o que certamente incluirá um complicador para gerar confundimento.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Já as idades, como em cada experimento elas são as mesmas, e o padrão é bem linear, você pode começar com o modelo linear simples pro efeito de idade e ir aumentando o grau conforme necessidade.<br clear="none"></div><div><br clear="none"></div><div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Segue código usado para explorar os dados.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default"><span style="font-family:monospace;"># Lê direto da planilha.<br clear="none">da <- gdata::read.xls("db_r-list.xlsx",<br clear="none"> stringsAsFactors = FALSE)<br clear="none">str(da)<br clear="none"><br clear="none">factor_roman <- function(x) {<br clear="none"> u <- sort(as.roman(unique(x)))<br clear="none"> factor(x, levels = as.character(u))<br clear="none">}<br clear="none"><br clear="none"># Converte para fator com níveis romanos ordenados.<br clear="none">da <- transform(da,<br clear="none"> Epoca = factor_roman(Epoca),<br clear="none"> Cultivar = factor_roman(Cultivar),<br clear="none"> Local = factor_roman(Local),<br clear="none"> Bloco = factor(Repeticao))<br clear="none"><br clear="none"># Tabelas de frequência dos pontos experimentais.<br clear="none">xtabs(~Epoca + Local, data = da)<br clear="none">xtabs(~Cultivar + Local, data = da)<br clear="none">xtabs(~Cultivar + Epoca, data = da)<br clear="none">ftable(xtabs(~Local + Idade + Cultivar, data = da))<br clear="none"><br clear="none">library(lattice)<br clear="none"><br clear="none"># Diagrama de dispersão.<br clear="none">xyplot(VariavelResposta1 ~ Idade | Epoca + Local,<br clear="none"> groups = Cultivar,<br clear="none"> data = da,<br clear="none"> type = c("p", "a"))<br clear="none"><br clear="none"># Separando por local.<br clear="none">gridExtra::grid.arrange(<br clear="none"> ncol = 1,<br clear="none"> xyplot(VariavelResposta1 ~ Idade | Epoca,<br clear="none"> groups = Cultivar,<br clear="none"> data = da,<br clear="none"> subset = Local == "I",<br clear="none"> layout = c(NA, 1),<br clear="none"> type = c("p", "a")),<br clear="none"> xyplot(VariavelResposta1 ~ Idade | Epoca,<br clear="none"> groups = Cultivar,<br clear="none"> data = da,<br clear="none"> subset = Local == "II",<br clear="none"> layout = c(NA, 1),<br clear="none"> type = c("p", "a")))<br clear="none"><br clear="none"># Cultivares comuns aos dois locais.<br clear="none">u <- as.array(xtabs(~Cultivar + Local, data = da))<br clear="none">i <- apply(u, 1, prod) > 0<br clear="none">common <- as.data.frame(u[i, ])<br clear="none">common$Freq <- NULL<br clear="none">common<br clear="none"><br clear="none"># Pega apenas as combinações presentes.<br clear="none">db <- droplevels(merge(common, da, all.x = TRUE, all.y = FALSE))<br clear="none">summary(db)<br clear="none"><br clear="none"># Diagrama de dispersão para a seleção.<br clear="none">xyplot(VariavelResposta1 ~ Idade | Epoca + Local,<br clear="none"> groups = Cultivar,<br clear="none"> data = db,<br clear="none"> type = c("p", "a"))<br clear="none"><br clear="none">xyplot(VariavelResposta1 ~ Idade | Cultivar + Local,<br clear="none"> groups = Epoca,<br clear="none"> data = db,<div class="yiv5875254943yqt3448497382" id="yiv5875254943yqtfd68127"><br clear="none"> type = c("p", "a"))</div></span></div><div class="yiv5875254943yqt3448497382" id="yiv5875254943yqtfd46467"><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;"><br clear="none"></div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">À disposição.</div><div class="yiv5875254943gmail_default" style="font-family:trebuchet ms, sans-serif;">Walmes.</div></div></div></div></div></div></div></div>
</div>
</div></body></html>