> 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.11083
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.737847 4.166859 -0.897 0.37
Dias 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 freedom
Residual deviance: 0.083459 on 3 degrees of freedom
AIC: 5.1496
Number of Fisher Scoring iterations: 6
E 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 ?