# first, delete existing windows to save memory:
  deleteAllWindows(CytoscapeConnection())
  cw <- CytoscapeWindow ('setDefaultEdgeColor test', graph=makeSimpleGraph())
  displayGraph (cw)
  redraw (cw)
  layoutNetwork(cw, 'grid')
  setDefaultEdgeColor (cw, '#888888') # grey edges
  redraw (cw) # redraw is not required anymore
Run the code above in your browser using DataLab