回答編集履歴
1
グラフを追加
test
CHANGED
|
@@ -71,3 +71,27 @@
|
|
|
71
71
|
Number of Fisher Scoring iterations: 4
|
|
72
72
|
|
|
73
73
|
```
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
[追記]
|
|
78
|
+
|
|
79
|
+
書き忘れましたが時系列のプロットの前に temperature vs y のグラフの上にフィッティングした線を是非描いて下さい。フィッティングの正しさの判断はグラフが強力です。
|
|
80
|
+
|
|
81
|
+
```R
|
|
82
|
+
|
|
83
|
+
library('ggplot2')
|
|
84
|
+
|
|
85
|
+
png("glm.png")
|
|
86
|
+
|
|
87
|
+
p <- ggplot(data=signate24,aes(x=temperature, y=y)) + geom_point() +
|
|
88
|
+
|
|
89
|
+
geom_line(aes(y = out$fitted.values), color='red')
|
|
90
|
+
|
|
91
|
+
print(p)
|
|
92
|
+
|
|
93
|
+
dev.off()
|
|
94
|
+
|
|
95
|
+
```
|
|
96
|
+
|
|
97
|
+
|