cw <- new.CytoscapeWindow ('setEdgeOpacityRule.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork (cw, 'jgraph-spring')
edgeType.values <- c ("phosphorylates", "synthetic lethal", "undefined")
# want to see edges and both arrows, to check success of opacity rule
setEdgeTargetArrowRule (cw, 'edgeType', edgeType.values, rep ('ARROW', 3))
setEdgeSourceArrowRule (cw, 'edgeType', edgeType.values, rep ('ARROW', 3))
setDefaultEdgeLineWidth (cw, 5)
redraw (cw)
# do the lookup rule
opacities <- c (25, 100, 255)
setEdgeOpacityRule (cw, 'edgeType', edgeType.values, opacities, mode='lookup')
redraw (cw)
# now do the interpolated version
opacities <- c (10, 125, 255)
control.points <- c (-12, 0, 35)
setEdgeOpacityRule (cw, 'score', control.points, opacities, mode='interpolate')
redraw (cw)
Run the code above in your browser using DataLab