Description Usage Arguments Details Value Author(s) See Also Examples
Produces plots of “intensity” vs. “theta” with clusters coloured according to genotype call. Optional highlighting of specified samples or of pedigree-errors
1 2 3 4 |
BSRed |
|
markers |
Index to markers to plot |
indHighlight |
Index to samples to highlight with yellow |
ploidy |
Character string reflecting the ploidy (copy-number) of the markers, defining the appearance of the clusters. Currently, only “tetra” is implemented |
indicate.SE |
If |
retFrames |
If |
nC |
Number of columns of plots in the figure |
mai |
Size of margins. See |
mNoise |
The “intensity”-limit below which no samples are called. If
|
main |
Vector of plot-titles. If |
All specified markers are plotted in subplots on a single device, and no more than 50-100 markers should be plotted at the time. The classified samples are coloured according to their allele-ratio, and non-called samples are represented as black dots. A red line indicates the estimated noise-level.
There are several ways samples may be highlighted. If
indicate.SE is TRUE, the size of the dots reflects the
precision of the intensity-estimates. Else, the samples indicated with
indHighlight are represented as yellow dots. If neither of
these are given, pedigree-errors will be highlighted if such
information is found in BSRed. Both assayData entries
“ped.check.parents” (see
validateSingleCall) and
“ped.check” (see validateCallsPedigree) are
recognised. Yellow circles and crosses indicate parent and offspring
errors, respectively.
The function plotGenotypes is called mainly for its side
effects, however if retFrames is TRUE a list of
data-frames containing the coordinates for each marker is returned
Lars Gidskehaug
validateCallsPedigree, callGenotypes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ## Not run:
#Read pre-processed data directly into AlleleSetIllumina object
rPath <- system.file("extdata", package="beadarrayMSV")
normOpts <- setNormOptions()
dataFiles <- makeFilenames('testdata',normOpts,rPath)
beadFile <- paste(rPath,'beadData_testdata.txt',sep='/')
beadInfo <- read.table(beadFile,sep='\t',header=TRUE,as.is=TRUE)
BSRed <- createAlleleSetFromFiles(dataFiles[1:4],beadInfo=beadInfo)
#Genotype calling and plotting
BSRed <- callGenotypes(BSRed)
plotGenotypes(BSRed,1:25)
#Pedigree validation and plotting
BSRed <- validateCallsPedigree(BSRed)
plotGenotypes(BSRed,1:25)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.