質問編集履歴
2
Rのコードのfilenameの定義を書き換えました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,9 +40,9 @@
|
|
|
40
40
|
|
|
41
41
|
|
|
42
42
|
|
|
43
|
-
|
|
43
|
+
#filename <- file.path(tempdir(),"model.bug")#####この部分を書き直した#####
|
|
44
44
|
|
|
45
|
-
|
|
45
|
+
filename <- file("C:\Rstudio\model.bug", "w")
|
|
46
46
|
|
|
47
47
|
write.model(model, filename)
|
|
48
48
|
|
1
model.bugファイルを書きだす部分のコードを修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,7 +40,9 @@
|
|
|
40
40
|
|
|
41
41
|
|
|
42
42
|
|
|
43
|
-
filename <- file.path(tempdir(),"model.bug")
|
|
43
|
+
~~filename <- file.path(tempdir(),"model.bug")~~
|
|
44
|
+
|
|
45
|
+
**filename <- file("C:\Rstudio\model.bug", "w")**
|
|
44
46
|
|
|
45
47
|
write.model(model, filename)
|
|
46
48
|
|
|
@@ -76,7 +78,11 @@
|
|
|
76
78
|
|
|
77
79
|
result <- bugs(data=data, inits = initial, parameters = parameter,
|
|
78
80
|
|
|
79
|
-
"model.bug", n.chains = 3, n.iter = 10000, n.burnin=1000, n.thin = 2,
|
|
81
|
+
model.file="model.bug", n.chains = 3, n.iter = 10000, n.burnin=1000, n.thin = 2,
|
|
82
|
+
|
|
83
|
+
bugs.directory = "C:\Program Files\WinBUGS14",
|
|
84
|
+
|
|
85
|
+
working.directory = "C:\Rstudio",codaPkg = TRUE, debug=T)
|
|
80
86
|
|
|
81
87
|
|
|
82
88
|
|