fix get_nchains, run-extended

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: dynamite
 Title: Bayesian Modeling and Causal Inference for Multivariate
     Longitudinal Data
-Version: 1.5.3
+Version: 1.5.4
 Authors@R: c(
     person("Santtu", "Tikka", email = "[email protected]", 
            role = c("aut", "cre"), comment = c(ORCID = "0000-0003-4039-4342")),

R/stan_utilities.R

@@ -132,8 +132,8 @@ get_model_code <- function(x) {
 #'
 #' @inheritParams get_pars_oi
 #' @noRd
-get_num_chains <- function(x) {
-  UseMethod("get_num_chains")
+get_nchains <- function(x) {
+  UseMethod("get_nchains")
 }
 
 #' Get the algorithm used in a Stan model fit
@@ -200,11 +200,11 @@ get_model_code.CmdStanMCMC <- function(x) {
   x$code()
 }
 
-get_num_chains.stanfit <- function(x) {
+get_nchains.stanfit <- function(x) {
   x@sim$chains
 }
 
-get_num_chains.CmdStanMCMC <- function(x) {
+get_nchains.CmdStanMCMC <- function(x) {
   x$num_chains()
 }