deleting centrality code as completed in R