1source("../../R/Rcheck.R") 2data <- read.jagsdata("eyes-data.R") 3inits <- read.jagsdata("eyes-inits.R") 4m <- jags.model("eyes2.bug", data, inits, n.chains=2) 5check.data(m, data) 6update(m, 1000) 7x <- coda.samples(m, c("P", "lambda","sigma"), thin=20, n.iter=40000) 8source("bench-test1.R") 9check.fun() 10 11