R/plot.pedigree.shrink.R

Defines functions plot.pedigree.shrink

Documented in plot.pedigree.shrink

# Automatically generated from all.nw using noweb

plot.pedigree.shrink <- function(x, bigped=FALSE, title="", xlegend="topright", ...){

  ##  Plot pedigrees, coloring subjects according
  ##   to availability, shaded by affected status used in shrink

if (bigped == FALSE) {
tmp <- plot(x$pedObj, col = x$avail + 1,keep.par=T)
}
else {
tmp <- plot.pedigree(x$pedObj, align = FALSE, packed = FALSE, 
col = x$avail + 1, cex = 0.5, symbolsize = 0.5,keep.par=T)
}

legend(x = xlegend, legend = c("DNA Available", "UnAvailable"), 
pch = c(1, 1), col = c(2, 1), bty = "n", cex=.5)
title(paste(title, "\nbits = ", x$bitSize[length(x$bitSize)]),cex.main=.9)
invisible(tmp)
} 

Try the kinship2 package in your browser

Any scripts or data that you put into this service are public.

kinship2 documentation built on May 29, 2024, 11:14 a.m.