3

首先，这个simmer_vignette和这个链接advanced_simmer_usage似乎表明错误源于“get_name、get_attribute 和 get_prioritization 旨在用于轨迹内；否则，将没有到达运行，这些函数将抛出一个错误”一个最小的可行示例：

  patient_traj <- trajectory(name = "patient_trajectory") %>%
  set_attribute("my_key", 123) %>%
  timeout(5) %>%
  set_attribute("my_key", function() get_attribute(env, "my_key") + 1) %>%
  timeout(5) %>%
  set_attribute("dependent_key", function() ifelse(get_attribute(env, "my_key")<=123, 1, 0)) %>%
  timeout(5) %>%
  set_attribute("independent_key", function() runif(1))

env<- simmer() %>%
  add_generator("patient", patient_traj, at(0), mon = 2)
env %>% run()
#> simmer environment: anonymous | now: 15 | next: 
#> { Generator: patient | monitored: 2 | n_generated: 1 }

get_mon_attributes(env)
#>   time     name             key       value replication
#> 1    0 patient0          my_key 123.0000000           1
#> 2    5 patient0          my_key 124.0000000           1
#> 3   10 patient0   dependent_key   0.0000000           1
#> 4   15 patient0 independent_key   0.9234335           1

现在这可以正常工作，当我尝试以任何其他方式调用 get_attribute() 时，问题就开始了。在轨迹定义最后的 set_attribute() 之后添加这一行：

log_(get_attribute(env, "independent_key"))

抛出上述错误。我真正想做的是调用“离开”函数并将其作为概率赋予属性。我仍然在轨迹中这样做。

leave(prob = get_attribute(env, "independent_key"))

不用说，这也会引发错误“get_attribute_(private$sim_obj, key, global) 中的错误：没有到达运行”。
有谁知道这可能是什么原因？我觉得唯一的选择是上面的解释“get_attribute 是为了在轨迹内使用”——但我觉得我正在这样做。

已经谢谢了！

4

1 回答 1

3

好的，我很不好意思这么说，但问题很容易解决。似乎问题是直接访问该属性。
所以log_(get_attribute(env, "independent_key"))不起作用，但log_(function() get_attribute(env, "independent_key"))确实如此。
这就是它所需要的。
如果有人能解释为什么这就是全部，我将不胜感激。

于 2017-11-17T20:08:11.743 回答