Open nileshpatra opened 2 years ago
Hi @tercer
Thanks for your work on this package. However it looks like Zelig has been removed from CRAN and it is also failing a test as:
== Failed tests ================================================================ -- Error (test-interface.R:74:5): REQUIRE TEST zelig_qi_to_df multinomial outcome -- Error in `if (mcmc.method == "RWM") { auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlMH", sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), mcmc = as.integer(mcmc), thin = as.integer(thin), tune = tune, lecuyer = as.integer(lecuyer), seedarray = as.integer(seed.array), lecuyerstream = as.integer(lecuyer.stream), verbose = as.integer(verbose), betastart = beta.start, betamode = beta.mode, b0 = b0, B0 = B0, V = V, RW = as.integer(1), tdf = as.double(tdf)) output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample") } else if (mcmc.method == "IndMH") { auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlMH", sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), mcmc = as.integer(mcmc), thin = as.integer(thin), tune = tune, lecuyer = as.integer(lecuyer), seedarray = as.integer(seed.array), lecuyerstream = as.integer(lecuyer.stream), verbose = as.integer(verbose), betastart = beta.start, betamode = beta.mode, b0 = b0, B0 = B0, V = V, RW = as.integer(0), tdf = as.double(tdf)) output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample") } else if (mcmc.method == "slice") { auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlslice", sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), mcmc = as.integer(mcmc), thin = as.integer(thin), lecuyer = as.integer(lecuyer), seedarray = as.integer(seed.array), lecuyerstream = as.integer(lecuyer.stream), verbose = as.integer(verbose), betastart = beta.start, b0 = b0, B0 = B0, V = V) output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample") } else { cat("\n\nmcmc.method not equal to one of 'RWM', 'IndMH', or 'slice'.\n") stop("Please respecifify and call MCMCmnl() again.\n") }`: the condition has length > 1 Backtrace: x 1. +-... %>% zelig_qi_to_df() at test-interface.R:74:4 2. +-Zelig::zelig_qi_to_df(.) 3. | \-Zelig::is_zelig(obj) 4. +-Zelig::sim(.) 5. | \-Zelig::is_zelig(obj) 6. +-Zelig::setx(.) 7. | \-Zelig::is_zelig(obj, fail = FALSE) 8. +-Zelig::zelig(...) 9. | \-z5$zelig(formula = formula, data = data, ..., by = by) 10. | \-Zelig callSuper(formula = formula, data = data, ..., by = by, bootstrap = FALSE) 11. | \-.self$data %>% group_by_(.self$by) %>% ... 12. +-dplyr::do(., z.out = eval(fn2(.self$model.call, quote(as.data.frame(.))))) 13. +-dplyr:::do.grouped_df(., z.out = eval(fn2(.self$model.call, quote(as.data.frame(.))))) 14. | \-rlang::eval_tidy(args[[j]], mask) 15. \-base::eval(fn2(.self$model.call, quote(as.data.frame(.)))) 16. \-base::eval(fn2(.self$model.call, quote(as.data.frame(.)))) 17. \-MCMCpack::MCMCmnl(...)
Would it be possible to fix this sometime soon?
Hi @tercer
Thanks for your work on this package. However it looks like Zelig has been removed from CRAN and it is also failing a test as:
Would it be possible to fix this sometime soon?