質問編集履歴
1
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -96,7 +96,9 @@
|
|
|
96
96
|
|
|
97
97
|
+ }'
|
|
98
98
|
|
|
99
|
+
|
|
100
|
+
|
|
99
|
-
|
|
101
|
+
data <- list(N = nrow(d),
|
|
100
102
|
|
|
101
103
|
+ X = d$x,
|
|
102
104
|
|
|
@@ -104,7 +106,7 @@
|
|
|
104
106
|
|
|
105
107
|
+ MeanX = mean(d$x))
|
|
106
108
|
|
|
107
|
-
|
|
109
|
+
fit <- stan(model_code = model, data = data,
|
|
108
110
|
|
|
109
111
|
+ warmup = 100, iter = 1600, chains = 3)
|
|
110
112
|
|