Calculating "Additive effect" of Qtls

207 views
Skip to first unread message

zahrap...@gmail.com

unread,
Mar 9, 2021, 1:41:30 AM3/9/21
to R/qtl discussion
Dear prof.Karl Broman 

I want to calculate "Additive effect "of each QTL  in my work . 
On the other hand, I got Multiple QTL mapping ,i used make

M_qtl <- makeqtl(M_QTL_LR4, chr=c( "3","6"), pos=c(60, 93), what="prob")

Estimated effects:

-----------------

                     est               SE                t

Intercept    56.773       3.364      16.875

3@60          -9.908        3.639        -2.723

6@93.0      13.777         3.581        3.847


I want to  know that if   "  est " column does the same meaning of "Additive effect" of Qtls? I mean for example the addetive effects of  6th  chromosome  is 13.777?

Or I am in the wrong way and I misunderstand ?

Thank you in advance , 

best regards 

Zahra Pakbaz

Samuel Wang

unread,
Mar 9, 2021, 3:28:38 AM3/9/21
to rqtl...@googlegroups.com
Hi Zahra Pakbaz,

You should use “fitqtl” function. The usage of fitqtl showed below:

fitqtl(cross, pheno.col=1, qtl, covar=NULL, formula, method=c("imp", "hk"),
       model=c("normal", "binary"), dropone=TRUE, get.ests=FALSE,
       run.checks=TRUE, tol=1e-4, maxit=1000, forceXcovar=FALSE)

If you want to estimate the effect from the qtr object, you should add the “get.ests= TRUE”.

Hope it would work!



Samuel Wang

--
You received this message because you are subscribed to the Google Groups "R/qtl discussion" group.
To unsubscribe from this group and stop receiving emails from it, send an email to rqtl-disc+...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/rqtl-disc/7cece872-da18-45d2-916c-dd4fba2eab3an%40googlegroups.com.

zahra pakbaz

unread,
Mar 9, 2021, 7:49:57 AM3/9/21
to rqtl...@googlegroups.com
Dear Samuel Wang

I appreciate your response but I want to know which parts of the result show the additive effects? 
Because   I used 
fitqtl(QTL_root_length_TREATMENT,  qtl=M_qtl,  pheno.col=2,   method="hk",   get.ests=TRUE, dropone=FALSE))


Estimated effects:

-----------------

                     est               SE                t

Intercept    56.773       3.364      16.875

3@60          -9.908        3.639        -2.723

6@93.0      13.777         3.581        3.847


My question is if the " est  "  column shows the additive effects of QTLs  or not ? for example, the additive effects of chromosome 6 is 13.777 ?


Best regards, 

Zahra Pakbaz 



Karl Broman

unread,
Mar 9, 2021, 9:03:39 AM3/9/21
to R/qtl discussion
If there's a single effect, as here, it would be the estimated additive effect. See the help file for fitqtl():

The estimated QTL effects for a backcross are derived by the coding scheme +/- 1/2 for AA and AB, so that the additive effect corresponds to the difference between phenotype averages for the two genotypes. For doubled haploids and RIL, the coding scheme is +/- 1 for AA and BB, so that the additive effect corresponds to half the difference between the phenotype averages for the two homozygotes.

For an intercross, the additive effect is derived from the coding scheme -1/0/+1 for genotypes AA/AB/BB, and so is half the difference between the phenotype averages for the two homozygotes. The dominance deviation is derived from the coding scheme 0/+1/0 for genotypes AA/AB/BB, and so is the difference between the phenotype average for the heterozygotes and the midpoint between the phenotype averages for the two homozygotes.

karl

zahra pakbaz

unread,
Mar 9, 2021, 9:18:28 AM3/9/21
to rqtl...@googlegroups.com
Dear Dr.Broman 
 thank you for your response.
My population is RIL .  which script can I use to estimate additive effects? 
Previously I used : 

M_QTL_LR4 <- calc.genoprob(QTL_root_length_TREATMENT, step=1)

M_qtl <- makeqtl(M_QTL_LR4, chr=c("3","6"), pos=c(60.0, 93.0), what="prob")

summary(M_qtl)

out.fq <- fitqtl(QTL_root_length_TREATMENT, qtl=M_qtl,pheno.col=2, method="hk",formula=y~Q1+Q2)
summary(out.fq)

summary(fitqtl(QTL_root_length_TREATMENT, qtl=M_qtl,pheno.col=2, method="hk", get.ests=TRUE, dropone=FALSE))


and the results is : 

Full model result

---------------------------------- 

Model formula: y ~ Q1 + Q2

 

       df        SS        MS     LOD     %var Pvalue(Chi2)    Pvalue(F)

Model   2  50376.02 25188.009 4.94745 11.35668 1.128626e-05 1.352325e-05

Error 186 393204.65  2114.003                                          

Total 188 443580.67                                                    

 

 

Estimated effects:

-----------------

           

               est         SE      t

Intercept 56.773    3.364   16.875

3@60.0     -9.908   3.639   -2.723

6@93.0     13.777   3.581    3.847

 

I want to  know that if   "  est " column does the same meaning of "Additive effect" of Qtls? or I should use another script to estimate additive effects of QTL? 

Best regards,

zahra pakbaz


Karl Broman

unread,
Mar 9, 2021, 10:53:03 AM3/9/21
to R/qtl discussion
With recombinant inbred lines, fitqtl() is still giving the additive effect, as half the difference between the two phenotype averages.

karl
Reply all
Reply to author
Forward
0 new messages