now it works fine at least statsprova.R contains a working code. it calls the sstat2 subroutine that computes number of edges and number of mutual edges correctly. the rest is just plain wrong.