<div dir="ltr">Eu ainda acho que falta mais uma correção: se na chamada:<div><br><div><font face="monospace">fat2.dic(revol, esterco, zn, quali=c(FALSE,TRUE),<span class="gmail-im" style="color:rgb(80,0,80)"><br> mcomp="tukey",<br> fac.names=c("Revolvimento","Esterco"),<br> sigT = 0.05, sigF = 0.05, unfold=NULL)</span></font><br></div><div><br></div><div>o primeiro fator NÃO é qualitativo, o número de graus de liberdade deveria ser um e não três. . . posto que revolvimento está sendo oferecido como dado numérico. . .</div></div><div><br></div><div>Não entendo porque nossos colegas brasileiros insistem em colocar uma linha adicional da tabela ANOVA para o total das somas quadráticas, posto que essa informação não tem uso algum.</div><div><br></div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Dec 18, 2023 at 6:46 AM Alan Rodrigo Panosso por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div>Prezado André, veja se corrigiu.</div><div><br></div><div>require(ExpDes.pt)<br><br>data(ex4)<br>attach(ex4)<br>fat2.dic(revol, esterco, zn, quali=c(FALSE,TRUE),<br> mcomp="tukey", <br> fac.names=c("Revolvimento","Esterco"), <br> sigT = 0.05, sigF = 0.05, unfold=NULL)<br><br><br>fat2.dic <- function (fator1, fator2, resp, quali = c(TRUE, TRUE), mcomp = "tukey", <br> fac.names = c("F1", "F2"), sigT = 0.05, sigF = 0.05, unfold = NULL) <br>{<br> cat("------------------------------------------------------------------------\nLegenda:\n")<br> cat("FATOR 1: ", fac.names[1], "\n")<br> cat("FATOR 2: ", fac.names[2], "\n------------------------------------------------------------------------\n\n")<br> fatores <- cbind(fator1, fator2)<br> Fator1 <- factor(fator1)<br> Fator2 <- factor(fator2)<br> nv1 <- length(summary(Fator1))<br> nv2 <- length(summary(Fator2))<br> lf1 <- levels(Fator1)<br> lf2 <- levels(Fator2)<br> anava <- aov(resp ~ Fator1 * Fator2)<br> tab <- summary(anava)<br> colnames(tab[[1]]) <- c("GL", "SQ", "QM", "Fc", "Pr>Fc")<br> tab[[1]] <- rbind(tab[[1]], c(apply(tab[[1]], 2, sum)))<br> rownames(tab[[1]]) <- c(fac.names[1], fac.names[2], paste(fac.names[1], <br> "*", fac.names[2], sep = ""), "Residuo", "Total")<br> cv <- round(sqrt(tab[[1]][4, 3])/mean(resp) * 100, 2)<br> tab[[1]][5, 3] = NA<br> cat("\nQuadro da analise de variancia\n------------------------------------------------------------------------\n")<br> print(tab[[1]])<br> cat("------------------------------------------------------------------------\nCV =", <br> cv, "%\n")<br> pvalor.shapiro <- shapiro.test(anava$residuals)$p.value<br> cat("\n------------------------------------------------------------------------\nTeste de normalidade dos residuos (Shapiro-Wilk)\n")<br> cat("valor-p: ", pvalor.shapiro, "\n")<br> if (pvalor.shapiro < 0.05) {<br> cat("ATENCAO: a 5% de significancia, os residuos nao podem ser considerados normais!\n------------------------------------------------------------------------\n")<br> }<br> else {<br> cat("De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.\n------------------------------------------------------------------------\n")<br> }<br> if (is.null(unfold)) {<br> if (tab[[1]][3, 5] > sigF) {<br> unfold <- c(unfold, 1)<br> }<br> if (tab[[1]][3, 5] <= sigF) {<br> unfold <- c(unfold, 2)<br> }<br> }<br> if (any(unfold == 1)) {<br> cat("\nInteracao nao significativa: analisando os efeitos simples\n------------------------------------------------------------------------\n")<br> fatores <- data.frame(`fator 1` = fator1, `fator 2` = fator2)<br> for (i in 1:2) {<br> if (quali[i] == TRUE && tab[[1]][i, 5] <= sigF) {<br> cat(fac.names[i])<br> if (mcomp == "tukey") {<br> tukey(resp, fatores[, i], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "duncan") {<br> duncan(resp, fatores[, i], tab[[1]][4, 1], <br> tab[[1]][4, 2], sigT)<br> }<br> if (mcomp == "lsd") {<br> lsd(resp, fatores[, i], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "lsdb") {<br> lsdb(resp, fatores[, i], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "sk") {<br> scottknott(resp, fatores[, i], tab[[1]][4, <br> 1], tab[[1]][4, 2], sigT)<br> }<br> if (mcomp == "snk") {<br> snk(resp, fatores[, i], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "ccboot") {<br> ccboot(resp, fatores[, i], tab[[1]][4, 1], <br> tab[[1]][4, 2], sigT)<br> }<br> if (mcomp == "ccF") {<br> ccF(resp, fatores[, i], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> }<br> if (quali[i] == TRUE && tab[[1]][i, 5] > sigF) {<br> cat(fac.names[i])<br> cat("\nDe acordo com o teste F, as medias desse fator sao estatisticamente iguais.\n")<br> cat("------------------------------------------------------------------------\n")<br> mean.table <- tapply.stat(resp, fatores[, i], <br> mean)<br> colnames(mean.table) <- c("Niveis", "Medias")<br> print(mean.table)<br> cat("------------------------------------------------------------------------")<br> }<br> if (quali[i] == FALSE && tab[[1]][i, 5] <= sigF) {<br> cat(fac.names[i])<br> reg.poly(resp, fatores[, i], tab[[1]][4, 1], <br> tab[[1]][4, 2], tab[[1]][i, 1], tab[[1]][i, <br> 2])<br> }<br> if (quali[i] == FALSE && tab[[1]][i, 5] > sigF) {<br> cat(fac.names[i])<br> cat("\nDe acordo com o teste F, as medias desse fator sao estatisticamente iguais.\n\n")<br> cat("------------------------------------------------------------------------\n")<br> mean.table <- tapply.stat(resp, fatores[, i], <br> mean)<br> colnames(mean.table) <- c("Niveis", "Medias")<br> print(mean.table)<br> cat("------------------------------------------------------------------------")<br> }<br> cat("\n")<br> }<br> }<br> if (any(unfold == 2)) {<br> cat("\n\n\nInteracao significativa: desdobrando a interacao\n------------------------------------------------------------------------\n")<br> cat("\nDesdobrando ", fac.names[1], " dentro de cada nivel de ", <br> fac.names[2], "\n------------------------------------------------------------------------\n")<br> des1 <- aov(resp ~ Fator2/Fator1)<br> l1 <- vector("list", nv2)<br> names(l1) <- names(summary(Fator2))<br> v <- numeric(0)<br> for (j in 1:nv2) {<br> for (i in 0:(nv1 - 2)) v <- cbind(v, i * nv2 + j)<br> l1[[j]] <- v<br> v <- numeric(0)<br> }<br> des1.tab <- summary(des1, split = list(`Fator2:Fator1` = l1))[[1]]<br> glb = nv2 - 1<br> glf1 = c(as.numeric(des1.tab[3:(nv2 + 2), 1]))<br> glE = tab[[1]][4, 1]<br> glT = tab[[1]][5, 1]<br> SQb = tab[[1]][2, 2]<br> SQf1 = c(as.numeric(des1.tab[3:(nv2 + 2), 2]))<br> SQE = tab[[1]][4, 2]<br> SQT = tab[[1]][5, 2]<br> QMb = SQb/glb<br> QMf1 = SQf1/glf1<br> QME = SQE/glE<br> QMT = SQT/glT<br> Fcb = QMb/QME<br> Fcf1 = QMf1/QME<br> rn <- numeric(0)<br> for (j in 1:nv2) {<br> rn <- c(rn, paste(paste(fac.names[1], ":", fac.names[2], <br> sep = ""), lf2[j]))<br> }<br> anavad1 <- data.frame(GL = c(round(c(glb, glf1, glE, <br> glT))), SQ = c(round(c(SQb, SQf1, SQE, SQT), 5)), <br> QM = c(round(c(QMb, QMf1, QME, QMT), 5)), Fc = c(round(c(Fcb, <br> Fcf1), 4), " ", " "), `Pr>Fc` = c(round(c(1 - <br> pf(Fcb, glb, glE), 1 - pf(Fcf1, glf1, glE)), <br> 4), "", ""))<br> rownames(anavad1) = c(fac.names[2], rn, "Residuo", "Total")<br> cat("------------------------------------------------------------------------\nQuadro da analise de variancia\n------------------------------------------------------------------------\n")<br> print(anavad1)<br> cat("------------------------------------------------------------------------\n\n")<br> for (i in 1:nv2) {<br> if (des1.tab[(i + 2), 5] <= sigF) {<br> if (quali[1] == TRUE) {<br> cat("\n\n", fac.names[1], " dentro do nivel ", <br> lf2[i], " de ", fac.names[2], "\n------------------------------------------------------------------------")<br> if (mcomp == "tukey") {<br> tukey(resp[Fator2 == lf2[i]], fatores[, 1][Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "duncan") {<br> duncan(resp[Fator2 == lf2[i]], fatores[, <br> 1][Fator2 == lf2[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "lsd") {<br> lsd(resp[Fator2 == lf2[i]], fatores[, 1][Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "lsdb") {<br> lsdb(resp[Fator2 == lf2[i]], fatores[, 1][Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "sk") {<br> scottknott(resp[Fator2 == lf2[i]], fatores[, <br> 1][Fator2 == lf2[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "snk") {<br> snk(resp[Fator2 == lf2[i]], fatores[, 1][Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "ccboot") {<br> ccboot(resp[Fator2 == lf2[i]], fatores[, <br> 1][Fator2 == lf2[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "ccF") {<br> ccF(resp[Fator2 == lf2[i]], fatores[, 1][Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> }<br> else {<br> cat("\n\n", fac.names[1], " dentro do nivel ", <br> lf2[i], " de ", fac.names[2], "\n------------------------------------------------------------------------")<br> reg.poly(resp[Fator2 == lf2[i]], fator1[Fator2 == <br> lf2[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> des1.tab[i + 2, 1], des1.tab[i + 2, 2])<br> }<br> }<br> else {<br> cat("\n\n", fac.names[1], " dentro do nivel ", <br> lf2[i], " de ", fac.names[2], "\n")<br> cat("\nDe acordo com o teste F, as medias desse fator sao estatisticamente iguais.\n")<br> cat("------------------------------------------------------------------------\n")<br> mean.table <- tapply.stat(resp[Fator2 == lf2[i]], <br> fatores[, 1][Fator2 == lf2[i]], mean)<br> colnames(mean.table) <- c("Niveis", "Medias")<br> print(mean.table)<br> cat("------------------------------------------------------------------------\n")<br> }<br> }<br> cat("\n\n")<br> cat("\nDesdobrando ", fac.names[2], " dentro de cada nivel de ", <br> fac.names[1], "\n------------------------------------------------------------------------\n")<br> des2 <- aov(resp ~ Fator1/Fator2)<br> l2 <- vector("list", nv1)<br> names(l2) <- names(summary(Fator1))<br> v <- numeric(0)<br> for (j in 1:nv1) {<br> for (i in 0:(nv2 - 2)) v <- cbind(v, i * nv1 + j)<br> l2[[j]] <- v<br> v <- numeric(0)<br> }<br> des2.tab <- summary(des2, split = list(`Fator1:Fator2` = l2))[[1]]<br> gla = nv1 - 1<br> glf2 = c(as.numeric(des2.tab[3:(nv1 + 2), 1]))<br> SQa = tab[[1]][1, 2]<br> SQf2 = c(as.numeric(des2.tab[3:(nv1 + 2), 2]))<br> QMa = SQa/gla<br> QMf2 = SQf2/glf2<br> Fca = QMa/QME<br> Fcf2 = QMf2/QME<br> rn <- numeric(0)<br> for (i in 1:nv1) {<br> rn <- c(rn, paste(paste(fac.names[2], ":", fac.names[1], <br> sep = ""), lf1[i]))<br> }<br> anavad2 <- data.frame(GL = c(round(c(gla, glf2, glE, <br> glT))), SQ = c(round(c(SQa, SQf2, SQE, SQT), 5)), <br> QM = c(round(c(QMa, QMf2, QME, QMT), 5)), Fc = c(round(c(Fca, <br> Fcf2), 4), " ", " "), `Pr>Fc` = c(round(c(1 - <br> pf(Fca, gla, glE), 1 - pf(Fcf2, glf2, glE)), <br> 4), "", ""))<br> rownames(anavad2) = c(fac.names[1], rn, "Residuo", "Total")<br> cat("------------------------------------------------------------------------\nQuadro da analise de variancia\n------------------------------------------------------------------------\n")<br> print(anavad2)<br> cat("------------------------------------------------------------------------\n\n")<br> for (i in 1:nv1) {<br> if (des2.tab[(i + 2), 5] <= sigF) {<br> if (quali[2] == TRUE) {<br> cat("\n\n", fac.names[2], " dentro do nivel ", <br> lf1[i], " de ", fac.names[1], "\n------------------------------------------------------------------------")<br> if (mcomp == "tukey") {<br> tukey(resp[Fator1 == lf1[i]], fatores[, 2][Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "duncan") {<br> duncan(resp[Fator1 == lf1[i]], fatores[, <br> 2][Fator1 == lf1[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "lsd") {<br> lsd(resp[Fator1 == lf1[i]], fatores[, 2][Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "lsdb") {<br> lsdb(resp[Fator1 == lf1[i]], fatores[, 2][Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "sk") {<br> scottknott(resp[Fator1 == lf1[i]], fatores[, <br> 2][Fator1 == lf1[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "snk") {<br> snk(resp[Fator1 == lf1[i]], fatores[, 2][Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> if (mcomp == "ccboot") {<br> ccboot(resp[Fator1 == lf1[i]], fatores[, <br> 2][Fator1 == lf1[i]], tab[[1]][4, 1], tab[[1]][4, <br> 2], sigT)<br> }<br> if (mcomp == "ccF") {<br> ccF(resp[Fator1 == lf1[i]], fatores[, 2][Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> sigT)<br> }<br> }<br> else {<br> cat("\n\n", fac.names[2], " dentro do nivel ", <br> lf1[i], " de ", fac.names[1], "\n------------------------------------------------------------------------")<br> reg.poly(resp[Fator1 == lf1[i]], fator2[Fator1 == <br> lf1[i]], tab[[1]][4, 1], tab[[1]][4, 2], <br> des2.tab[i + 2, 1], des2.tab[i + 2, 2])<br> }<br> }<br> else {<br> cat("\n\n", fac.names[2], " dentro do nivel ", <br> lf1[i], " de ", fac.names[1], "\n")<br> cat("\nDe acordo com o teste F, as medias desse fator sao estatisticamente iguais.\n")<br> cat("------------------------------------------------------------------------\n")<br> mean.table <- tapply.stat(resp[Fator1 == lf1[i]], <br> fatores[, 2][Fator1 == lf1[i]], mean)<br> colnames(mean.table) <- c("Niveis", "Medias")<br> print(mean.table)<br> cat("------------------------------------------------------------------------\n")<br> }<br> }<br> }<br> out <- list()<br> out$residuos <- anava$residuals<br> out$gl.residual <- anava$df.residual<br> out$coeficientes <- anava$coefficients<br> out$efeitos <- anava$effects<br> out$valores.ajustados <- anava$fitted.values<br> out$medias.fator1 <- tapply.stat(resp, fatores[, 1], mean)<br> out$medias.fator2 <- tapply.stat(resp, fatores[, 2], mean)<br> tabmedia <- model.tables(anava, "means")<br> out$medias.dentro12 <- tabmedia$tables$`Fator1:Fator2`<br> invisible(out)<br>}<br><br>fat2.dic(revol, esterco, zn, quali=c(FALSE,TRUE),<br> mcomp="tukey", <br> fac.names=c("Revolvimento","Esterco"), <br> sigT = 0.05, sigF = 0.05, unfold=NULL)</div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em seg., 18 de dez. de 2023 às 05:34, Andre Oliveira por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div><div dir="ltr">bom dia, <span><i style="font-family:"bookman old style","new york",times,serif;font-size:16px">QM errado.</i></span></div><div><br></div><div><div style="font-family:"old times",serif;font-size:16px"><div dir="ltr">att,.</div><div>André </div></div></div></div>
<div><br></div><div><br></div>
</div><div id="m_2857357600286371480m_-8133927041978347991yahoo_quoted_3570849245">
<div style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div>
Em domingo, 17 de dezembro de 2023 às 14:30:57 BRT, Cesar Rabak por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597"><div><div dir="ltr">OK e qual era a expectativa que foi frustrada em relação ao resultado obtido?<div><br clear="none"></div></div><br clear="none"><div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597yqt38283"><div dir="ltr">On Sun, Dec 17, 2023 at 8:06 AM Andre Oliveira por (R-br) <<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"old times",serif;font-size:16px"><div><div dir="ltr">bom dia, segue! </div><div dir="ltr"><br clear="none"></div><div dir="ltr"><div><div><i>require(ExpDes.pt)</i></div><div><i><br clear="none"></i></div><div><i>data(ex4)</i></div><div><i>attach(ex4)</i></div><div><i>fat2.dic(revol,esterco,zn,quali=c(FALSE,TRUE),mcomp="tukey", </i><i>fac.names=c("Revolvimento","Esterco"),sigT = 0.05, </i><i>sigF = 0.05, unfold=NULL)</i></div></div><br clear="none"></div><div><div style="font-family:serif;font-size:16px"><div dir="ltr">att,.</div><div>André </div></div></div></div>
<div><br clear="none"></div><div><br clear="none"></div>
</div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yahoo_quoted_3279438273">
<div style="font-family:Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div>
Em domingo, 17 de dezembro de 2023 às 08:04:57 BRT, Andre Oliveira <<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:andreolsouza@yahoo.com.br" target="_blank">andreolsouza@yahoo.com.br</a>> escreveu:
</div>
<div><br clear="none"></div>
<div><br clear="none"></div>
<div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957"><div><div style="font-family:"old times",serif;font-size:16px"><div><div dir="ltr">bo dia dia! segue! </div><div><br clear="none"></div><div><div style="font-family:serif;font-size:16px"><div dir="ltr">att,.</div><div>André </div></div></div></div>
<div><br clear="none"></div><div><br clear="none"></div>
</div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957yahoo_quoted_3214786140">
<div style="font-family:Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div>
Em sábado, 16 de dezembro de 2023 às 21:11:21 BRT, Cesar Rabak por (R-br) <<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:
</div>
<div><br clear="none"></div>
<div><br clear="none"></div>
<div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957yqt07048"><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957"><div><div dir="ltr">CMR ?<div><br clear="none"></div></div><br clear="none"><div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957yqt24185"><div dir="ltr">On Sat, Dec 16, 2023 at 4:20 PM Andre Oliveira por (R-br) <<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:serif;font-size:16px"><div><div dir="ltr"><i>boa tarde,</i></div><div dir="ltr"><i>alguém com problemas com a biblioteca ExpDes.pt? Função fatorial duplo retornando o QM errado.</i></div><div dir="ltr"><i><br clear="none"></i></div><div><div style="font-family:serif;font-size:16px"><div dir="ltr"><i>att,.</i></div><div><i>André </i></div></div></div></div></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none">
Leia o guia de postagem (<a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none">
</blockquote></div></div>
</div></div></div><div id="m_2857357600286371480m_-8133927041978347991yiv4783880597m_-202438888440341992yiv1706052957yqt16641">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a rel="nofollow noopener noreferrer" shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none">Leia o guia de postagem (<a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none"></div></div>
</div>
</div></div></div></div>
</div>
</div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow noopener noreferrer" shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none">
Leia o guia de postagem (<a rel="nofollow noopener noreferrer" shape="rect" 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 clear="none">
</blockquote></div></div>
</div></div><div id="m_2857357600286371480m_-8133927041978347991yqt31276">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" 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 clear="none">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 clear="none"></div></div>
</div>
</div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br clear="all"><br><span class="gmail_signature_prefix">-- </span><br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><p> <a name="m_2857357600286371480_SignatureSanitizer_SafeHtmlFilter_UNIQUE_ID_SafeHtmlFilter__MailAutoSig">Alan Rodrigo Panosso</a></p>
<p>----------------------------------------------------------------------------</p>
<p>Professor Assistente Doutor -
Departamento de Engenharia e Ciências Exatas<br>
Faculdade de Ciências Agrárias e Veterinárias - FCAV - UNESP/Jaboticabal<br></p><p>Via de Acesso Prof.Paulo Donato Castellane s/n </p><p><font size="2" face="arial, helvetica, sans-serif">14884-900 - Jaboticabal, SP</font></p><p><font size="2" face="arial, helvetica, sans-serif">E_mail: <span style="color:blue"><a href="mailto:alanrp@mat.feis.unesp.br" target="_blank">alan.panosso@u</a><a href="http://nesp.br" target="_blank">nesp.br</a></span></font><font size="2" face="arial, helvetica, sans-serif"><br>
Tel.: (16) 3209-7210</font></p></div></div></div></div></div></div></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>