Description Usage Arguments Details Value Note Author(s) References See Also Examples
Computes the additive effect at QTL marker by meaning the phenotypic value for each genotypic group.
1 |
cross |
An object of class |
scanone |
An object of class |
peak |
An object of class |
round |
An optional integer indicating the precision to be used for the additive effect value. See |
... |
Additional arguments passed to the functions |
Uses Karl Broman's effectplot
function to mean the phenotype for each genotypic group defined at the QTL marker. The additive effect is computed as the difference between the phenotypical means of the two genotypic groups (homozygous). The parental reference allele is allele 2.
By default, allele 1 is encoded as A and allele 2 as B, therefore the additive effect is mean(B)-mean(A) where mean(A) is the phenotypical mean of genotypic group A and mean(B) is the phenotypical mean of the genotypic group B.
The input peak
object is returned with component, adef
, added to components of peak\$trait\$chromosome
for each previously detected QTLs.
additive.effect |
The additive effect value at the QTL marker |
It is necessary to have previously performed the sim.geno
function. It is not recommended to plot the allelic contribution by using the function calc.adef
. It is preferable to use directly Karl Broman's codeeffectplot function (using the parameter draw=TRUE
). See 'qtl' package manual for codeeffectplot function details.
Hamid A. Khalili
Broman KW, Wu H, Sen S, Churchill GA (2003) R/qtl: QTL mapping in experimental crosses. Bioinformatics 19:889-890
effectplot
,define.peak
,read.cross
,plot
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | data(seed10);
# Genotype probabilities
## Not run: seed10 <- calc.genoprob( cross=seed10, step=2, off.end=0, error.prob=0,
map.function='kosambi', stepwidth='fixed');
seed10 <- sim.geno( cross=seed10, step=2, off.end=0, error.prob=0,
map.function='kosambi', stepwidth='fixed');
## End(Not run)
# Genome scan and QTL detection
out.em <- scanone( seed10, pheno.col=1:50, model='normal', method='hk');
out.peak <- define.peak(out.em, 'all');
# Additive effect computing
out.peak <- calc.adef(seed10,out.em,out.peak,round=3);
# Additive effect of the QTLs affecting the 26th trait
# and localized on chromosome 1
out.peak[[26]]$'4'$additive.effect;
# Peak's features describing the QTLs affecting the 26th trait
# and localized on chromosome 1
out.peak[[26]]$'4';
# idem for the trait 'CATrck'
out.peak$CATrck
out.peak$CATrck$'4'
out.peak$CATrck$'4'$additive.effect
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.