require(R2jags)

OrangeTree_BUGS_fit <- function(){
tfit_jags <- jags(model="OrangeTree_bugs.txt",
                  data=data,
                  parameters.to.save=c("phi1","phi2","phi3","logSigma"),
                  n.chains=1,
                  inits=inits)
}