powered by
el2sm(el,directed=TRUE,nadiag=all(el[,1]!=el[,2]))
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