View source: R/plot_lodpeaks.R
plot_lodpeaks | R Documentation |
Create a scatterplot of LOD scores vs QTL peak locations (possibly with intervals) for multiple traits.
plot_lodpeaks(peaks, map, chr = NULL, gap = NULL, intervals = FALSE, ...)
peaks |
Data frame such as that produced by
|
map |
Marker map, used to get chromosome lengths (and start and end positions). |
chr |
Selected chromosomes to plot; a vector of character strings. |
gap |
Gap between chromosomes. The default is 1% of the total genome length. |
intervals |
If TRUE and |
... |
Additional graphics parameters |
None.
A number of graphics parameters can be passed via ...
. For
example, bgcolor
to control the background color and
altbgcolor
to control the background color on alternate chromosomes.
These are not included as formal parameters in order to avoid
cluttering the function definition.
find_peaks()
, plot_peaks()
# read data
iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
# insert pseudomarkers into map
map <- insert_pseudomarkers(iron$gmap, step=1)
# calculate genotype probabilities
probs <- calc_genoprob(iron, map, error_prob=0.002)
# grab phenotypes and covariates; ensure that covariates have names attribute
pheno <- iron$pheno
covar <- match(iron$covar$sex, c("f", "m")) # make numeric
names(covar) <- rownames(iron$covar)
Xcovar <- get_x_covar(iron)
# perform genome scan
out <- scan1(probs, pheno, addcovar=covar, Xcovar=Xcovar)
# find peaks above lod=3.5 (and calculate 1.5-LOD support intervals)
peaks <- find_peaks(out, map, threshold=3.5, drop=1.5)
plot_lodpeaks(peaks, map)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.