estimate of serial interval

[Suzzan-1991]

Hi,
Got error when I try to run epiestim for serial interval. Can you please help me with this

library(EpiEstim)
## Not run:
## Note the following examples use an MCMC routine
## to estimate the serial interval distribution from data,
## so they may take a few minutes to run
## load data on rotavirus
data("MockRotavirus")
## estimate the serial interval from data
SI_fit <- coarseDataTools::dic.fit.mcmc(dat = MockRotavirus$si_data,
                                        dist="G",
                                        init_pars=init_mcmc_params(MockRotavirus$si_data, "G"),
                                        burnin = 1000,
                                        n.samples = 5000)
## use check_cdt_samples_convergence to check convergence
converg_diag <- check_cdt_samples_convergence(SI_fit@samples)
converg_diag
## End(Not run)


the error 

Error in coarseDataTools::dic.fit.mcmc(dat = MockRotavirus$si_data, dist = "G",  : 
  
Error: unused argument (init_pars = c(1.14145679384708, 1.33716475095785))
Try adjusting the starting parameters (init.pars), or changing the optimization method (opt.method).