g <- makeSimpleGraph()
eda (g, 'edgeType')
## The function is currently defined as
function (graph, edge.attribute.name)
{
unlist (sapply (names (edgeData (graph)), function (n) edgeData (graph)[[n]][[edge.attribute.name]]))
} # eda
Run the code above in your browser using DataLab