Nothing
#' 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) }
}
}}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.