<div dir="ltr">Tendi foi nada...</div><div class="gmail_extra"><br clear="all"><div><div><br></div><div><br></div><div>Atenciosamente,</div><div><br></div>David Feitosa<br><div><div></div></div><div><br></div><div><div>(\_(\</div><div>(=°;°)</div><div>(("")("")</div></div></div>
<br><div class="gmail_quote">Em 15 de outubro de 2014 19:29, Tiago Souza Marçal <span dir="ltr"><<a href="mailto:tiagosouzamarcal@hotmail.com" target="_blank">tiagosouzamarcal@hotmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><div dir="ltr">Boa noite pessoal,<div style="line-height:21.2999992370605px"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px">estou trabalhando com o desenvolvimento matricial dos efeitos dialélicos dos modelos de Griffing no R.</div><div style="line-height:21.2999992370605px"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px">No entanto, estou tendo dificuldade para adaptar a matriz CR (mostrada abaixo) para a matriz CR1 (<span style="line-height:22.7199993133545px;font-size:12pt">mostrada abaixo</span><span style="line-height:22.7199993133545px;font-size:12pt">) que codifica </span></div><div style="line-height:21.2999992370605px"><span style="line-height:22.7199993133545px;font-size:12pt"><br style="line-height:22.7199993133545px"></span></div><div style="line-height:21.2999992370605px"><span style="line-height:22.7199993133545px;font-size:12pt">os </span><span style="line-height:22.7199993133545px;font-size:12pt">efeitos </span><span style="line-height:22.7199993133545px;font-size:12pt">recíprocos. </span><span style="line-height:22.7199993133545px;font-size:12pt">Qualquer sugestão é bem vinda.</span></div><div style="line-height:21.2999992370605px"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px"><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">diall = structure(c(1L, 2L, 3L, 4L, 2L, 5L, 6L, 7L, 3L, 6L, 8L, 9L, 4L, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">7L, 9L, 10L), .Label = c("1", "2", "3", "4", "5", "6", "7", "8", </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">"9", "10"), class = "factor")</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">mat <- model.matrix(~-1+diall)</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">mat[,colSums(mat)==1] = 0</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">CR = mat</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">CR1 <- structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">0, 0), .Dim = c(16L, 10L), .Dimnames = list(c("1", "2", "3", </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">"16"), c("dia1", "dia2", "dia3", "dia4", "dia5", "dia6", "dia7", </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">"dia8", "dia9", "dia10")), assign = c(1L, 1L, 1L, 1L, 1L, 1L, </div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">1L, 1L, 1L, 1L), contrasts = structure(list(dia = "contr.treatment"), .Names = "dia"))</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">Att.</div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)"><br style="line-height:21.2999992370605px"></div><div style="line-height:21.2999992370605px;color:rgb(68,68,68);font-size:15px;background-color:rgb(255,255,255)">Tiago.</div><div><br></div></div><div>#################################################################</div><div> </div><div>Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES</div><div> </div><div>Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas</div><div> </div><div>################################################################# </div>                                      </div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>