1

パッケージfanplotの例に従おうとしていますが、ew.txtファイルが見つかりません。よろしくお願いします。

data(ew)
plot(ew)

## Not run: 
plot(ew.mcmc)

##
##Create your own (longer) MCMC sample
##
# data
r <- diff(log(ew))
r <- ts(exp(r) - 1, start(ew))

library("R2OpenBUGS")
# write model file:
ew.bug <- dget(system.file("model", "ew.txt", package = "fanplot"))
write.model(ew.bug, "ew.txt")
# take a look:
file.show("ew.txt")
# run openbugs
ew.mcmc <- bugs(data = list(N = length(r), H = 25, r = c(r), p = c(ew)),
                inits = list(list(a = exp(12), psi = 0.5, itau2 = 0.5)),
                param = c("alpha", "psi", "tau", "r.new", "p.new", "y.sim"),
                model = "ew.txt", 
                n.iter = 11000, n.burnin = 1000, n.chains = 1, n.thin = 1)

## End(Not run)
4

2 に答える 2

3

ファイルは、パッケージライブラリの場所にありますR_LIBS/fanplot/model/。R_LIBS

サンプルコードでは、ファイルは次の場所にありsystem.file()ます。

system.file("model", "ew.txt", package = "fanplot")

次に、次の行でモデルを作業ew.txtディレクトリ内のファイルに書き込みます。どちらが欲しいかは明確ではありません。パッケージに付属しているものが上記のようにそれを見つけた場合。または、CRANからソースtarballをダウンロードします（cranのパッケージページから） 。ew.txtR_LIBStar.gz

于 2012-08-02T21:09:23.523 に答える
0

このコードをインタラクティブセッションで実行する場合は、を使用getwdして作業ディレクトリを確認してください。これは、保存されたテキストファイルを含むディレクトリである必要があります。

于 2012-08-02T20:55:00.037 に答える