powered by
sm2el(sm,directed=TRUE)
Y<-matrix(rpois(10*10,.5),10,10) ; diag(Y)<-NA E<-sm2el(Y) el2sm(E) - Y
Run the code above in your browser using DataLab