# NOT RUN {
attributeData <- attributeData
df <- sampleData1
prepNet <- tabulate_edges(df, iscsvfile = FALSE)
baseNet <- prepareGraphs(prepNet, project_title = "Sample Data 1",
directedNet = TRUE, selfInteract = FALSE, weightedGraph = TRUE)
NetPlots2 <- plotGraphs2(baseNet, attribute1 = attributeData$ethnicity,
attribute2 = attributeData$gender, attribute.node.labels = attributeData$node,
attribute1.label = "Ethnicity", attribute2.label = "Gender")
writeData("Sample Data 1", NetPlots2, dirpath = tempdir())
# }
Run the code above in your browser using DataLab