# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
window.name <- 'demo addCyEdge'
cw <- CytoscapeWindow (window.name, graph=makeSimpleGraph ())
displayGraph (cw)
layoutNetwork(cw)
directed = TRUE
addCyEdge (cw, 'A', 'B', 'synthetic rescue', directed)
Run the code above in your browser using DataLab