R/addlines.R

In pdhoff/eigenmodel: Semiparametric Factor and Regression Models for Symmetric Relational Data

#' Adds lines between nodes to an existing plot of nodes
#' 
#' Adds lines between nodes to an existing plot of nodes
#' 
#' 
#' @param U an n x 2 matrix of node locations
#' @param Y a symmetric matrix
#' @param col color of the lines
#' @param lwd width of the lines
#' @param lty line type
#' @return NULL
#' @author Peter Hoff
#' @keywords multivariate
"addlines" <-
function(U,Y,col="green",lwd=1,lty=1) {
u1<-U[,1]; u2<-U[,2]
n<-dim(Y)[1]
for(i in 1:(n-1)){
for(j in (i+1):n){
if(!is.na(Y[i,j])) {
if(Y[i,j]!=0) {   segments(u1[i],u2[i],u1[j],u2[j],col=col,lwd=lwd) }
                     }
               }}
                              }