# NOT RUN {
# read imgs, nodes and edges dataframes
imgs <- read.table(system.file("extdata", "imgs.tsv", package = "iconr"),
sep="\t",stringsAsFactors = FALSE)
nodes <- read.table(system.file("extdata", "nodes.tsv", package = "iconr"),
sep="\t",stringsAsFactors = FALSE)
edges <- read.table(system.file("extdata", "edges.tsv", package = "iconr"),
sep="\t",stringsAsFactors = FALSE)
lgrph <- list_dec(imgs,nodes,edges)
# Counting same nodes
df.same_nodes <- same_elements(lgrph, nd.var = "type",
focus = "nodes")
df.same_nodes
## a symmetric matrix of nodes comparisons
# same edges
df.same_edges <- same_elements(lgrph, nd.var = "type",
focus = "edges")
df.same_edges
## a symmetric matrix of edges comparisons
# }
Run the code above in your browser using DataLab