From 09085a2e1256dfda0ac4d09083aeacc74b197e17 Mon Sep 17 00:00:00 2001 From: okenk Date: Sun, 18 Feb 2024 12:30:51 -0800 Subject: [PATCH] Unlist `forecast_num` in `change_e()` --- R/change_e.r | 1 + 1 file changed, 1 insertion(+) diff --git a/R/change_e.r b/R/change_e.r index 0c3d4fc1..b64382c8 100644 --- a/R/change_e.r +++ b/R/change_e.r @@ -55,6 +55,7 @@ change_e <- function(ctl_file_in = "em.ctl", if (is.list(par_name)) par_name <- unlist(par_name) if (is.list(par_int)) par_int <- unlist(par_int) if (is.list(par_phase)) par_phase <- unlist(par_phase) + if (is.list(forecast_num)) forecast_num <- unlist(forecast_num) check_eqlength( "par_name" = par_name, "par_int" = par_int, "par_phase" = par_phase