Running examples in 'Rnets-Ex.R' failed
The error most likely occurred in:

> ### Name: Rnet
> ### Title: R-net Methods
> ### Aliases: Rnet Rnet,ANY,ANY,ANY,ANY,ANY,ANY,ANY,ANY,expression-method
> ###   Rnet,ANY,ANY,ANY,ANY,ANY,ANY,ANY,ANY,character-method
> 
> ### ** Examples
> 
> #Create a single R-net for all E. coli isolates in the provided dataset. 
> #Vertices to be used defined by 'ABX_LIST' below.
> #Edges require at least 20 observations to be valid.
> 
> ABX_LIST <- c('AMP', 'AMC', 'AXO', 'TIO', 'NAL', 'CIP', 'STR', 'GEN', 'COT', 'FIS')
> 
> EC_Rnet_ALL <- Rnet(x = NARMS_EC_DATA, 
+ 						L1 = 0.3, 
+ 						vertices = ABX_LIST, 
+ 						n_min = 20
+ 						)
> class(EC_Rnet_ALL)[1]	#EC_Rnet_ALL is a 'rnetBasic' object
[1] "rnetBasic"
> print(EC_Rnet_ALL)	#Basic Rnet information

Vertex set: AMP AMC AXO TIO NAL CIP STR GEN COT FIS 
 
  Edge set: 
    V1  V2 Omega
1  AMC AMP 0.347
2  AMC AXO 0.131
3  AMC TIO 0.140
4  AMP AXO 0.067
5  AMP TIO 0.124
6  AXO TIO 0.176
7  CIP NAL 0.131
8  COT FIS 0.160
9  FIS GEN 0.272
10 FIS STR 0.053
11 GEN STR 0.088
> summary(EC_Rnet_ALL) 	#More detailed information

Basic R-net 
 
 Sample: 14418 isolates, 10 vertices 
 
     L1: 0.3 
  Edges: 11 
Density: 24.4 % 

Vertex set: AMP AMC AXO TIO NAL CIP STR GEN COT FIS 
 
  Edge set: 
    V1  V2 Omega
1  AMC AMP 0.347
2  AMC AXO 0.131
3  AMC TIO 0.140
4  AMP AXO 0.067
5  AMP TIO 0.124
6  AXO TIO 0.176
7  CIP NAL 0.131
8  COT FIS 0.160
9  FIS GEN 0.272
10 FIS STR 0.053
11 GEN STR 0.088

> 
> #Create a single R-net for only E. coli isolates collected during 2008
> EC_Rnet_2008 <- Rnet(x = NARMS_EC_DATA, 
+ 						L1 = 0.3, 
+ 						vertices = ABX_LIST, 
+ 						n_min = 20,
+ 					subset = expression(Year == 2008)
+ 						)
> class(EC_Rnet_2008)[1]	#EC_Rnet_ALL is an 'rnet.stratum' object
[1] "rnetSubset"
> 
> #Create a set of R-nets, one for each year of E.coli isolates.
> EC_Rnet_byYear <- Rnet(x = NARMS_EC_DATA, 
+ 						L1 = 0.3, 
+ 						vertices = ABX_LIST, 
+ 						n_min = 20,
+ 					subset = 'Year'
+ 						)
Error in `[<-.data.frame`(`*tmp*`, edgematr[[1]] %in% rnet.list[[i]]@V_omitted |  : 
  replacement has 1 row, data has 0
Calls: Rnet -> Rnet -> .Aggregate_Edges -> [<- -> [<-.data.frame
Execution halted