EQNfile <- system.file("MPTmodels/2htsm.eqn", package="TreeBUGS")
d.encoding <- subset(arnold2013, group == "encoding", select = -(1:4))
fit <- betaMPT(EQNfile, d.encoding, n.thin=5,
restrictions=list("D1=D2=D3","d1=d2","a=g"))
plot(fit, parameter = "mean", type = "default")
summary(fit)
I runed an example code like:
how ever it gets : could not find function "fitModel"
What causes this?