## Not run:
# #############################################################################
# # EXAMPLE 1: Computation Rhat statistic for 2PNO model fitting by MCMC
# #############################################################################
#
# data(data.read)
#
# # estimate 2PNO with MCMC with 3000 iterations and 500 burn-in iterations
# mod <- mcmc.2pno( dat=data.read , iter=1000 , burnin=100 )
# # plot MCMC chains
# plot( mod$mcmcobj , ask=TRUE )
# # compute Rhat statistics
# round( mcmc_Rhat( mod$mcmcobj[[1]] ) , 3 )
# ## End(Not run)
Run the code above in your browser using DataLab