if (FALSE) {
# This function must be used inside a custom module
dat <- record_attr_history(dat, at, "attr_1", get_posit_ids(dat), 5)
some_nodes <- get_posit_ids(dat)
some_nodes <- some_nodes[runif(length(some_nodes)) < 0.2]
dat <- record_attr_history(
dat, at,
"attr_2",
some_nodes,
rnorm(length(some_nodes))
)
}
Run the code above in your browser using DataLab