powered by
addlines(Y,X,col="lightblue",alength=0,...)
data(addhealthc3) Y<-addhealthc3$Y X<-xnet(Y) netplot(Y,X) addlines(Y,X,col=Y[Y!=0])
Run the code above in your browser using DataLab