質問編集履歴
2
Rのコードのfilenameの定義を書き換えました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,8 +19,8 @@
|
|
|
19
19
|
}
|
|
20
20
|
}
|
|
21
21
|
|
|
22
|
-
|
|
22
|
+
#filename <- file.path(tempdir(),"model.bug")#####この部分を書き直した#####
|
|
23
|
-
|
|
23
|
+
filename <- file("C:\Rstudio\model.bug", "w")
|
|
24
24
|
write.model(model, filename)
|
|
25
25
|
|
|
26
26
|
#Data
|
1
model.bugファイルを書きだす部分のコードを修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,7 +19,8 @@
|
|
|
19
19
|
}
|
|
20
20
|
}
|
|
21
21
|
|
|
22
|
-
filename <- file.path(tempdir(),"model.bug")
|
|
22
|
+
~~filename <- file.path(tempdir(),"model.bug")~~
|
|
23
|
+
**filename <- file("C:\Rstudio\model.bug", "w")**
|
|
23
24
|
write.model(model, filename)
|
|
24
25
|
|
|
25
26
|
#Data
|
|
@@ -37,7 +38,9 @@
|
|
|
37
38
|
|
|
38
39
|
#Start WinBUGS
|
|
39
40
|
result <- bugs(data=data, inits = initial, parameters = parameter,
|
|
40
|
-
"model.bug", n.chains = 3, n.iter = 10000, n.burnin=1000, n.thin = 2,
|
|
41
|
+
model.file="model.bug", n.chains = 3, n.iter = 10000, n.burnin=1000, n.thin = 2,
|
|
42
|
+
bugs.directory = "C:\Program Files\WinBUGS14",
|
|
43
|
+
working.directory = "C:\Rstudio",codaPkg = TRUE, debug=T)
|
|
41
44
|
|
|
42
45
|
```
|
|
43
46
|
|