Skip to content

Instantly share code, notes, and snippets.

Nick Eubank nickeubank

  • Academia
Block or report user

Report or block nickeubank

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@nickeubank
nickeubank / functions.R
Last active Sep 12, 2017
modifications to functions.R to get reciprocal graph
View functions.R
stripAttributes <- function(g) {
for (a in list.graph.attributes(g)) {
g <- delete_graph_attr(g, a)
}
for (a in list.edge.attributes(g)) {
g <- delete_edge_attr(g, a)
}
for (a in list.vertex.attributes(g)) {
if (a != "name") {
g <- delete_vertex_attr(g, a)
You can’t perform that action at this time.