moving to S4,  should play better with nodes<- from graph package