model <- tna(group_regulation)
# Small number of iterations and drop proportions for CRAN
cs <- estimate_cs(
model,
measures = c("InStrength", "OutStrength"),
drop_prop = seq(0.3, 0.9, by = 0.2),
iter = 10
)
print(cs)
Run the code above in your browser using DataLab