# With a matrix:
chains <- matrix(rnorm(3000), nrow = 1000, ncol = 3)
ess(chains)
# With a data frame:
chains_df <- data.frame(
chain = rep(1:3, each = 1000),
param1 = rnorm(3000),
param2 = rnorm(3000)
)
ess(chains_df)
Run the code above in your browser using DataLab