(参考:解析データ)
種コード 経過日数 濃度 活力度 枯損率/100 草丈
1_Se 0 0 5 0 52
1_Se 0 0 5 0 52
1_Se 0 0 5 0.01 61
1_Se 0 0 5 0 60
1_Se 0 0 5 0.01 34
1_Se 0 5 5 0.01 40
1_Se 0 5 5 0.01 52
Y:枯損率/100,X:濃度,経過日数
>GLM.1 <- glm(枯損率 ~ 経過日数 + 濃度, family=binomial(logit), data=Dataset, subset=種コード==1_Se & 濃度!=0)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.44282 -0.17532 0.01692 0.17920 0.96627
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.63045 0.52147 -5.044 4.55e-07 ***
経過日数 0.48507 0.08832 5.492 3.97e-08 ***
濃度 0.09517 0.02121 4.486 7.25e-06 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 170.446 on 259 degrees of freedom
Residual deviance: 42.243 on 257 degrees of freedom
AIC: 111.36
Number of Fisher Scoring iterations: 8
> Anova(GLM.1, type="II", test="LR")
Analysis of Deviance Table (Type II tests)
Response: 枯損率
LR Chisq Df Pr(>Chisq)
経過日数 111.725 1 < 2.2e-16 ***
濃度 25.393 1 4.675e-07 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
● 「統計学関連なんでもあり」の過去ログ--- 044 の目次へジャンプ
● 「統計学関連なんでもあり」の目次へジャンプ
● 直前のページへ戻る