modified drop.int and sociomatrix fun