# \donttest{
reh_tie <- remify::remify(history, model = "tie", event_attr = "setting")
data(history, package = "remstats")
history$work <- ifelse(history$setting == "work", 1, 0)
effects <- ~ event("work", event_attr = history)
remstats(reh = reh_tie, tie_effects = effects)
# }
Run the code above in your browser using DataLab