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