# \donttest{
reh <- remify::remify(history, model = "tie")
actor101Events <- which(history$actor1 == "101" | history$actor2 == "101")
actor101_stat <- t(sapply(seq_len(nrow(history)), function(i) {
rep(i %in% actor101Events, reh$D)
}))
# Main effects only
effects <- ~ userStat(x = actor101_stat, variableName = "actor101event")
remstats(reh = reh, tie_effects = effects)
# Model with interaction effects
interaction_effects <- ~ inertia() *
userStat(x = actor101_stat, variableName = "actor101event")
remstats(reh = reh, tie_effects = interaction_effects)
# }
Run the code above in your browser using DataLab