Olá,escrevi o seguinte script:> A<-read.table("A.txt", header=TRUE)> ADias Massa1 38 3702 121 42003 208 132004 291 171005 381 18000> plot(A$Dias,A$Massa,xlab="Dias",ylab="Massa", col="blue")> modelo<-glm(Massa~Dias, data=A, family=binomial)Mensagens de aviso perdidas:In eval(expr, envir, enclos) : #sucessos não-inteiro em um glm binomial!> summary(modelo)Call:glm(formula = Massa ~ Dias, family = binomial, data = A)Deviance Residuals:1 2 3 4 5-0.19282 -0.03793 0.15578 0.09105 -0.11083Coefficients:Estimate Std. Error z value Pr(>|z|)(Intercept) -3.737847 4.166859 -0.897 0.37Dias 0.006566 0.014028 0.468 0.64(Dispersion parameter for binomial family taken to be 1)Null deviance: 0.339765 on 4 degrees of freedomResidual deviance: 0.083459 on 3 degrees of freedomAIC: 5.1496Number of Fisher Scoring iterations: 6E obtive o gráfico em anexo.Minha intenção era fazer uma regressão logística com os valores da Tabela "A", no entanto a curva não parece muito ajustada aos parâmetros. O que pode estar errado ?--Luís Fernando Pirondi Junior
_______________________________________________
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.