add n_sims

[njtierney]

Should just be something like

n_sims <- function(x){
  n_chain(x) * n_iter(x)
}