update to graphBonds.R-- WIP