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