Bug: Values allowed in Netdis parameters.

[leospinaf]

set.seed(3171)
gLat_1 <- graph.lattice(c(20,20))
gLat_2 <- graph.lattice(c(40,40))
gRing_1 <- make_ring(20^2)
gRing_2 <- make_ring(40^2)
gTree_1 <- igraph::as.undirected( make_tree(n = 20^2,children = 3) )
gTree_2 <- igraph::as.undirected( make_tree(n = 40^2,children = 3) )
glist <- list(Lat_1=gLat_1, Lat_2=gLat_2, Ring_1=gRing_1, Ring_2=gRing_1, Tree_1=gTree_1, Tree_2=gTree_2)

#Change the min_ego_edges

binning_fn <- purrr::partial(binned_densities_adaptive,
min_counts_per_interval = 10,
num_intervals = 20)
netdisgp_mat_others <- netdis_many_to_many(graphs = glist,
ref_graph = NULL,
max_graphlet_size = 4,
neighbourhood_size = 2,
min_ego_nodes = 5,
min_ego_edges = 10,
binning_fn = binning_fn
)

Error in if (common.len == 1L) unlist(x, recursive = FALSE) else if (common.len > :
argument is of length zero

#Change the max_graphlet_size

binning_fn <- purrr::partial(binned_densities_adaptive,
min_counts_per_interval = 10,
num_intervals = 20)
netdisgp_mat_others <- netdis_many_to_many(graphs = glist,
ref_graph = NULL,
max_graphlet_size = 3,
neighbourhood_size = 2,
min_ego_nodes = 5,
min_ego_edges = 3,
binning_fn = binning_fn
)

Error in count_orbits_per_node(graph, max_graphlet_size = max_graphlet_size) :
Unsupported maximum graphlet size

#Change the ego-network size

binning_fn <- purrr::partial(binned_densities_adaptive,
min_counts_per_interval = 10,
num_intervals = 20)
netdisgp_mat_others <- netdis_many_to_many(graphs = glist,
ref_graph = NULL,
max_graphlet_size = 4,
neighbourhood_size = 1,
min_ego_nodes = 5,
min_ego_edges = 4,
binning_fn = binning_fn
)

Error in if (common.len == 1L) unlist(x, recursive = FALSE) else if (common.len > :
argument is of length zero