From 5dbdd0eb266e3675def150332636e1314c8676c8 Mon Sep 17 00:00:00 2001 From: Steven Goodreau Date: Tue, 14 Oct 2025 23:42:19 -0400 Subject: [PATCH] moving parentheses in network.extract.with.lasttoggle, in the lines extracting vectors of tails and heads --- R/stergm.utils.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/stergm.utils.R b/R/stergm.utils.R index f51b2602..839ab441 100644 --- a/R/stergm.utils.R +++ b/R/stergm.utils.R @@ -60,8 +60,8 @@ network.extract.with.lasttoggle <- function(nwd, at){ # first obtain all tails, heads, and lasttoggle times <= at in the nwd valid_eids <- valid.eids(nwd) - tails <- unlist(lapply(nwd$mel, "[[", "outl"))[valid_eids] - heads <- unlist(lapply(nwd$mel, "[[", "inl"))[valid_eids] + tails <- unlist(lapply(nwd$mel, "[[", "outl")[valid_eids]) + heads <- unlist(lapply(nwd$mel, "[[", "inl")[valid_eids]) lts <- unlist(lapply(lapply(lapply(nwd$mel, "[[", "atl"), "[[", "active"), function(x) suppressWarnings(max(x[x <= at]))))[valid_eids]