File tree 4 files changed +13
-17
lines changed
4 files changed +13
-17
lines changed Original file line number Diff line number Diff line change @@ -36,8 +36,7 @@ Suggests:
36
36
graph,
37
37
influenceR,
38
38
methods,
39
- netrankr,
40
- NetSwan,
39
+ netrankr (>= 1.2.4),
41
40
network,
42
41
seriation,
43
42
testthat (>= 3.0.0)
Original file line number Diff line number Diff line change @@ -30,6 +30,3 @@ expect_netrankr <- function(...) {
30
30
expect_seriation <- function (... ) {
31
31
rlang :: check_installed(' seriation' , ... )
32
32
}
33
- expect_netswan <- function (... ) {
34
- rlang :: check_installed(' NetSwan' , ... )
35
- }
Original file line number Diff line number Diff line change @@ -267,27 +267,27 @@ node_effective_network_size <- function() {
267
267
graph <- .G()
268
268
influenceR :: ens(graph )[focus_ind(graph , ' nodes' )]
269
269
}
270
- # ' @describeIn node_measures measures the impact on connectivity when removing the node (`NetSwan `)
270
+ # ' @describeIn node_measures measures the impact on connectivity when removing the node (`netrankr `)
271
271
# ' @export
272
272
node_connectivity_impact <- function () {
273
- expect_netswan ()
273
+ expect_netrankr ()
274
274
expect_nodes()
275
275
graph <- .G()
276
- NetSwan :: swan_connectivity(graph )[focus_ind(graph , ' nodes' )]
276
+ netrankr :: swan_connectivity(graph )[focus_ind(graph , ' nodes' )]
277
277
}
278
- # ' @describeIn node_measures measures the impact on closeness when removing the node (`NetSwan `)
278
+ # ' @describeIn node_measures measures the impact on closeness when removing the node (`netrankr `)
279
279
# ' @export
280
280
node_closeness_impact <- function () {
281
- expect_netswan ()
281
+ expect_netrankr ()
282
282
expect_nodes()
283
283
graph <- .G()
284
- NetSwan :: swan_closeness(graph )[focus_ind(graph , ' nodes' )]
284
+ netrankr :: swan_closeness(graph )[focus_ind(graph , ' nodes' )]
285
285
}
286
- # ' @describeIn node_measures measures the impact on fareness (distance between all node pairs) when removing the node (`NetSwan `)
286
+ # ' @describeIn node_measures measures the impact on fareness (distance between all node pairs) when removing the node (`netrankr `)
287
287
# ' @export
288
288
node_fareness_impact <- function () {
289
- expect_netswan ()
289
+ expect_netrankr ()
290
290
expect_nodes()
291
291
graph <- .G()
292
- NetSwan :: swan_efficiency(graph )[focus_ind(graph , ' nodes' )]
292
+ netrankr :: swan_efficiency(graph )[focus_ind(graph , ' nodes' )]
293
293
}
You can’t perform that action at this time.
0 commit comments