Nothing

```
Transpose_graph <- function(vgraph) {
# Transposes a graph, that is switching the direction of the network edges
# Args:
# vgraph: a graph object representing the graph to transpose
# Returns:
# vgraph: a graph object representing the transposed graph
edges <- get.edgelist(vgraph, names=F)
edges <- edges[,2:1]
vgraph <- delete.edges(vgraph, E(vgraph))
vgraph <- add.edges(vgraph, t(edges))
return(vgraph)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.