Description Usage Arguments Value Examples
View source: R/threshold_allmodels.r
Select significant marker at each mlmm step according to a threshold.
1 | threshold_allmodels(threshold=NULL, res_mlmm)
|
threshold |
a value to declare the significant p value. The default value is Bonferroni 0.05 |
res_mlmm |
a list of p-value for each mlmm step. Use helper function |
A matrix with a line for significant SNP at each mlmm step (according to the defined threshold) and 3 columns : SNP, p-value, step
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | ### Additive model ###
## Not run:
data("mlmm.gwas.AD")
XX = list(Xa)
KK = list(K.add)
# GWAS
res_mlmm <- mlmm_allmodels(floweringDateAD, XX, KK)
manhattan.plot(res_mlmm)
# Model and Marker selection
sel_XX <- frommlmm_toebic(XX, res_mlmm)
res.eBIC <- eBIC_allmodels(floweringDateAD, sel_XX, KK, ncol(Xa))
res.threshold <- threshold_allmodels(threshold, res_mlmm)
# Effects estimations with the selected model
sel_XXclass <- fromeBICtoEstimation(sel_XX, res.eBIC, res.threshold)
eff.estimations <- Estimation_allmodels(floweringDateAD, sel_XXclass, KK)
genotypes.boxplot(Xa, floweringDateAD, effects = eff.estimations)
## End(Not run)
### Additive + dominance model
## Not run:
data("mlmm.gwas.AD")
XX = list(Xa, Xd)
KK = list(K.add, K.dom)
# GWAS
res_mlmm <- mlmm_allmodels(floweringDateAD, XX, KK)
manhattan.plot(res_mlmm)
# Marker selection
res.threshold <- threshold_allmodels(threshold, res_mlmm)
## End(Not run)
### Female+Male model
## Not run:
data("mlmm.gwas.FMI")
XX = list(Xf, Xm)
KK = list(K.female, K.male)
# GWAS
res_mlmm <- mlmm_allmodels(floweringDateFMI, XX, KK, female = female, male = male)
manhattan.plot(res_mlmm)
# Marker selection
res.threshold <- threshold_allmodels(threshold, res_mlmm)
## End(Not run)
### Female+Male+Interaction model
## Not run:
data("mlmm.gwas.FMI")
XX = list(Xf, Xm, Xfm)
KK = list(K.female, K.male, K.hybrid)
# GWAS
res_mlmm <- mlmm_allmodels(floweringDateFMI, XX, KK, female = female, male = male)
manhattan.plot(res_mlmm)
# Marker selection
res.threshold <- threshold_allmodels(threshold, res_mlmm)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.