powered by
upper.tri.remove(dat, remove.val=NA)
upper.tri.remove
g[upper.tri(g)]<-remove.val
upper.tri
lower.tri.remove
diag.remove
#Generate a random graph stack g<-rgraph(3,5) #Remove the upper triangles g<-upper.tri.remove(g)
Run the code above in your browser using DataLab