Из Google пытается понять пакет «simmer» в R для моделирования дискретных событий.Моделирование дискретных событий в R
Как показано в примере, приведенном в link, я пытаюсь создать симулятор, используя функцию create_simulator. но я получаю ошибку ниже
Код Использована
trajectory <- read.table(header=T, text= "event_id description resource amount duration successor 1 registration administration 1 runif(1,3,10) 2 2 intake nurse 1 runif(1,10,20) 3 3 consultation doctor 1 runif(1,5,15) NA" )
sim <- create_simulator(name = "SuperDuperSim") %>% add_trajectory(name = "simple_trajectory", trajectory_df = trajectory) %>% add_resource(name = "administration", capacity = 1) %>% add_resource(name = "nurse", capacity = 1) %>% add_resource(name = "doctor", capacity = 2) %>% add_entities_with_interval(n = 10, name_prefix = "patient", trajectory_name = "simple_trajectory", interval = "rnorm(1,10)") %>% replicator(15)
Ошибка:
Error in eval(expr, envir, enclos) :
could not find function "create_simulator"
Пожалуйста, отредактируйте ваш вопрос и укажите код, который вызвал сообщение об ошибке. Спасибо. – Uwe