# first, delete existing windows to save memory:
  deleteAllWindows(CytoscapeConnection())
  cw <- CytoscapeWindow ('setNodeHeightDirect.test', graph=makeSimpleGraph())
  displayGraph (cw)
  layoutNetwork (cw, 'force-directed')
  lockNodeDimensions (cw, FALSE)
  setNodeHeightDirect (cw, 'A', 32)
  setNodeHeightDirect (cw, c('A', 'B'), 15)
  setNodeHeightDirect (cw, c('C', 'B'), c(15, 30))
Run the code above in your browser using DataLab