# To generate events up to time '50' in a network of 25 actors with
# 200 random initial events
# Exogenous attributes data.frame
cov <- data.frame(
id = 1:25,
time = rep(0, 25),
sex = sample(c(0,1), 25, replace = TRUE, prob = c(0.4, 0.6)),
age = sample(20:30, 25, replace = TRUE)
)
# Effects specification
rateform <- ~ remulate::baseline(-6) +
remulate::indegreeSender(0.01) +
remulate::send(0.02, variable = "age", attr_actors = cov) +
remulate::interact(0.01, indices = c(2, 3))
choiceform <- ~ remulate::inertia(0.01) +
remulate::reciprocity(-0.03) +
remulate::interact(0.01, indices = c(2, 1))
# Calling remulateActor
remulate::remulateActor(
rateform,
choiceform,
actors = 1:25,
endTime = 100,
initial = 200,
events = 500,
)
# To predict events, given an edgelist of initial events
initialREH <- data.frame(
time = seq(0.5, 100, 0.5),
sender = sample(1:25, 200, TRUE),
receiver = sample(1:25, 200, TRUE)
)
remulate::remulateActor(
rateform,
choiceform,
actors = 1:25,
endTime = 200,
initial = initialREH,
events = 500
)
Run the code above in your browser using DataLab