Description Usage Arguments Details Value Author(s) References Examples
View source: R/powerEQTL.SLR.R
Power calculation for eQTL analysis that tests if a SNP is associated to a gene probe by using simple linear regression. This function can be used to calculate one of the 4 parameters (power, sample size, minimum detectable slope, and minimum allowable MAF) by setting the corresponding parameter as NULL and providing values for the other 3 parameters.
1 2 3 4 5 6 7 8 9 10 | powerEQTL.SLR(
MAF,
slope = 0.13,
n = 200,
power = NULL,
sigma.y = 0.13,
FWER = 0.05,
nTests = 2e+05,
n.lower = 2.01,
n.upper = 1e+30)
|
MAF |
numeric. Minor allele frequency. |
slope |
numeric. Slope of the simple linear regression. |
n |
integer. Total number of subjects. |
power |
numeric. Power for testing if the slope is equal to zero. |
sigma.y |
numeric. Standard deviation of the outcome y_i in simple linear regression. |
FWER |
numeric. Family-wise Type I error rate. |
nTests |
integer. Number of tests (i.e., number of all (SNP, gene) pairs) in eQTL analysis. |
n.lower |
numeric. Lower bound of the total number of subjects. Only used when calculating total number of subjects. |
n.upper |
numeric. Upper bound of the total number of subjects. Only used when calculating total number of subjects. |
To test if a SNP is associated with a gene probe, we use the simple linear regression
y_i = beta_0 + beta_1 * x_i + epsilon_i,
where y_i is the gene expression level of the i-th subject, x_i is the genotype of the i-th subject, and ε_i is the random error term with mean zero and standard deviation σ. Additive coding for genotype is used. That is, x_i=0 indicates wildtype homozygotes; x_i=1 indicates heterozygotes; and x_i=2 indicates mutation heterozygotes.
To test if the SNP is associated with the gene probe, we test the null hypothesis H_0: beta_1 = 0 versus the alternative hypothesis H_1: β_1 = δ, where δ\neq 0.
Denote theta as the minor allele frequency (MAF) of the SNP. Under Hardy-Weinberg equilibrium, we can calculate the variance of genotype of the SNP: sigma^2_x = 2 * theta * (1 - theta), where sigma^2_x is the variance of the predictor (i.e. the SNP) x_i.
The exact power calculation formula can be derived as
1-T_{n-2, λ}(t_{n-2}(α/2)) + T_{n-2, λ}(-t_{n-2}(α/2)),
where T_{n-2, λ}(a) is the value at a of cumulative distribution function of non-central t distribution with n-2 degrees of freedom and non-centrality parameter λ=δ/√{σ^2/[(n-1)\tilde{σ}^2_{x}]}. And \tilde{σ}^2_{x}=∑_{i=1}^n(x_i - \bar{x})^2/(n-1).
Dupont and Plummer (1998) mentioned the following relationship:
σ^2 = σ^2_y - β_1^2 σ^2_x.
So we can plug in the above equation to the power calculation formula.
Under Hardy-Weinberg equilibrium, we have σ_x^2=2θ(1-θ), where θ is the minor allele frequency (MAF).
Hence, the non-centrality parameter can be rewritten as
λ=\frac{δ}{√{ ≤ft(σ_y^2 - δ^2 2≤ft(1-\hat{θ}\right)\hat{θ}\right)/ ≤ft[(n-1)2≤ft(1-\hat{θ}\right)\hat{θ}\right] }}
We adopted the parameters from the GTEx cohort (see the Power analysis" section of Nature Genetics, 2013; https://www.nature.com/articles/ng.2653), where they modeled the expression data as having a log-normal distribution with a log standard deviation of 0.13 within each genotype class (AA, AB, BB). This level of noise is based on estimates from initial GTEx data. In their power analysis, they assumed the across-genotype difference delta = 0.13 (i.e., equivalent to detecting a log expression change similar to the standard deviation within a single genotype class).
power if the input parameter power = NULL
.
sample size (total number of subjects) if the input parameter n = NULL
;
minimum detectable slope if the input parameter slope = NULL
;
minimum allowable MAF if the input parameter MAF = NULL
.
Xianjun Dong <XDONG@rics.bwh.harvard.edu>, Xiaoqi Li<xli85@bwh.harvard.edu>, Tzuu-Wang Chang <Chang.Tzuu-Wang@mgh.harvard.edu>, Scott T. Weiss <restw@channing.harvard.edu>, Weiliang Qiu <weiliang.qiu@gmail.com>
Dupont, W.D. and Plummer, W.D.. Power and Sample Size Calculations for Studies Involving Linear Regression. Controlled Clinical Trials. 1998;19:589-601.
Dong X, Li X, Chang T-W, Scherzer CR, Weiss ST, and Qiu W. powerEQTL: An R package and shiny application for sample size and power calculation of bulk tissue and single-cell eQTL analysis. Bioinformatics, 2021;, btab385
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 | # calculate power
powerEQTL.SLR(
MAF = 0.1,
slope = 0.13,
n = 179,
power = NULL,
sigma.y = 0.13,
FWER = 0.05,
nTests = 2e+05)
# calculate sample size (total number of subjects)
powerEQTL.SLR(
MAF = 0.1,
slope = 0.13,
n = NULL,
power = 0.8,
sigma.y = 0.13,
FWER = 0.05,
nTests = 2e+05)
# calculate minimum detectable slope
powerEQTL.SLR(
MAF = 0.1,
slope = NULL,
n = 179,
power = 0.8,
sigma.y = 0.13,
FWER = 0.05,
nTests = 2e+05)
# calculate minimum allowable MAF
powerEQTL.SLR(
MAF = NULL,
slope = 0.13,
n = 179,
power = 0.8,
sigma.y = 0.13,
FWER = 0.05,
nTests = 2e+05)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.