## Not run:
# # generate correlational data
# X <- rnorm(100)
# Y <- .4*X + rnorm(100,0,1)
#
# # run jzs_cor
# result <- jzs_cor(X,Y)
#
# # inspect posterior distribution
# plot(result$alpha_samples)
#
# # print a traceplot of the chains
# plot(result$jagssamples)
#
# ## End(Not run)
Run the code above in your browser using DataLab