```r # now trajectory() %>% set_attribute("parts", function() get_attribute(env, "parts") + 1) # proposal trajectory() %>% set_attribute("parts", 1, mod="+") ```
