# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
window.name <- 'demo.setVisualStyle'
cw <- CytoscapeWindow (window.name, graph=makeSimpleGraph ())
displayGraph (cw)
layoutNetwork(cw)
styles <- getVisualStyleNames (cw)
setVisualStyle (cw, styles[5])
Run the code above in your browser using DataLab