strippper R working in loop - sapply over topnet, crunch edgelist, spit out vars we need