回答編集履歴
1
グラフを追加
answer
CHANGED
|
@@ -34,4 +34,16 @@
|
|
|
34
34
|
AIC: 2706
|
|
35
35
|
|
|
36
36
|
Number of Fisher Scoring iterations: 4
|
|
37
|
-
```
|
|
37
|
+
```
|
|
38
|
+
|
|
39
|
+
[追記]
|
|
40
|
+
書き忘れましたが時系列のプロットの前に temperature vs y のグラフの上にフィッティングした線を是非描いて下さい。フィッティングの正しさの判断はグラフが強力です。
|
|
41
|
+
```R
|
|
42
|
+
library('ggplot2')
|
|
43
|
+
png("glm.png")
|
|
44
|
+
p <- ggplot(data=signate24,aes(x=temperature, y=y)) + geom_point() +
|
|
45
|
+
geom_line(aes(y = out$fitted.values), color='red')
|
|
46
|
+
print(p)
|
|
47
|
+
dev.off()
|
|
48
|
+
```
|
|
49
|
+
|