# Introduction

Interaction between a genetic variant (e.g., a SNP) and an environmental variable (e.g., physical activity) can have a shared effect on multiple phenotypes (e.g., LDL and HDL). MPGE is a two-step method to test for an overall interaction effect on multiple phenotypes. In first step, the method tests for an overall marginal genetic association between the genetic variant and the multivariate phenotype. In the second step, SNPs which show an evidence of marginal overall genetic effect in the first step are prioritized while testing for an overall GxE effect. That is, a more liberal threshold of significance level is considered in the second step while testing for an overall GxE effect for these promising SNPs compared to the other SNPs.

This R-package consists of the following main functions:

1. mv_G_GE: for a batch of genetic variants, this function provides two different p-values for each genetic variant, one from the test of marginal overall genetic association with multiple phenotypes, and the other from the test of overall GxE effect on multivariate phenotype allowing for a possible marginal effect due to the genetic variant and a marginal effect due to the environmental variable.
2. WHT: this function implements the weighted multiple hypothesis testing procedure to adjust for multiple testing while combining the two steps of testing gene-environment interaction in the two-step GxE testing procedure, given two sets of p-values obtained using the previous function mv_G_GE for genome-wide genetic variants.
3. SST: this function implements the subset multiple hypothesis testing procedure to adjust for multiple testing while combining the two steps of testing gene-environment interaction based on the same two sets of p-values described above.

# Installation

You can install MPGE from CRAN.

#install.packages("MPGE")
#library("MPGE")

# Run mv_G_GE

We will demonstrate how to run the mv_G_GE function. First, load the example data.

library("MPGE")
phenofile <- system.file("extdata", "phenotype_data.rda", package = "MPGE")
##        pheno1     pheno2      pheno3
## 1  0.31921537  1.0531580  1.21120849
## 2 -0.67344929  0.9330864 -1.40170032
## 3  0.79089818 -0.7405425  2.26619916
## 4  0.63810298  1.0210492  1.93624445
## 5 -0.02325848 -0.3910989  2.25363813
## 6 -0.99669088 -1.8149841 -0.04107952

Here phenotype_data is a data.frame with three columns for three phenotypes and the number of rows to be the number of individuals in the sample (500 in this toy data). Data for each phenotype provided must be adjusted individually for relevant covariates (e.g., age, sex, genetic ancestry) beforehand, and should follow a normal distribution.

library("MPGE")
genofile <- system.file("extdata", "genotype_data.rda", package = "MPGE")
##   rs1 rs2
## 1   1   0
## 2   1   0
## 3   0   0
## 4   0   0
## 5   0   0
## 6   1   0

Here, genotype_data is a data.frame with the columns as SNPs (e.g., rs1 and rs2 here). The rows correspond to the 500 individuals in the same order as in the phenotype data.

library("MPGE")
# Load the data for environmental variable
genofile <- system.file("extdata", "environment_data.rda", package = "MPGE")
##   env
## 1   0
## 2   0
## 3   0
## 4   0
## 5   1
## 6   0
# For example, non-smoker coded as 0 and smoker coded as 1.

Here, environment_data is a data frame with single column for the environmental variable. The order of the 500 individuals in the row must be the same as provided in the phenotype and genotype data. Here, the environmental variable has two categories which were coded as 1 and 0 (e.g., smokers and non-smokers). Instead of numeric values, these can also be considered to be factors in the absence of a defined order in the categories. Now, given the required phenotype, genotype and environmental data, we run the mv_G_GE function next.

#Compute the p-value of testing marginal multivariate genetic association. And, compute the p-value of testing multivariate GxE effect in presence of possible marginal genetic effect and marginal environmental effect on the phenotypes.
result <- mv_G_GE(phenotype_data, genotype_data, environment_data)
result
##   SNP         G.P       GE.P
## 1 rs1 0.000151109 0.00082551
## 2 rs2 0.176325958 0.11378000

The output (‘result’) of mv_G_GE is a data.frame. Each row of the output provides the pair of p-values for each genetic variant, first one (G.P) from the test of marginal overall genetic association, and the second one (GE.P) from the test of overall GxE effect in presence of possible marginal genetic effect and marginal environmental effect.

# Run WHT and SST

Next, we demonstrate how to run WHT and SST. First, load the example data.

library("MPGE")
pvalues <- system.file("extdata", "mv_G_GxE_pvalues.rda", package = "MPGE")
##   SNP          G.P       GE.P
## 1 rs1 1.023551e-27 1.3292e-02
## 2 rs2 1.540443e-23 3.2022e-05
## 3 rs3 2.726237e-08 3.3349e-04
## 4 rs4 7.730439e-30 2.6798e-03
## 5 rs5 2.173659e-22 1.0266e-05
## 6 rs6 1.476325e-14 4.8417e-06

Here, mv_G_GxE_pvalues is a data.frame with three columns. First column lists the set of 1000 genetic variants. Second column provides the vector of p-values obtained from testing the marginal multivariate genetic association for these SNPs. And the third column provides the vector of p-values obtained from testing the overall GxE effect in presence of possible marginal genetic effect and marginal environmental effect. Thus, the input data has the same structure as the output produced by the first function mv_G_GE. Next, we run WHT for this example data.

#Run WHT to implement the weighted hypothesis testing to adjust for multiple comparison, and find the significant SNPs with an overall GxE effect.
result <- WHT(mv_G_GxE_pvalues)
str(result)
## List of 2
##  $GEsnps : chr [1:10] "rs2" "rs5" "rs6" "rs8" ... ##$ adjusted.PV:'data.frame': 1000 obs. of  2 variables:
##   ..$SNP : chr [1:1000] "rs1" "rs2" "rs3" "rs4" ... ## ..$ adj.P: num [1:1000] 2.12672 0.02049 0.85373 0.42877 0.00657 ...

The output is a list, first element of which (‘GEsnps’) is a character vector providing the set of SNPs found to have a significant signal of overall GxE effect. Second element is a dataframe providing the adjusted GxE test p-values (with the corresponding genetic variants in the first column) obtained by the weighted hypothesis testing procedure adjusting for multiple comparison.

#Run SST to implement the subset testing to adjust for multiple comparison, and find the significant SNPs with an overall GxE effect.
result <- SST(mv_G_GxE_pvalues)
str(result)
##  chr [1:11] "rs2" "rs3" "rs5" "rs6" "rs8" "rs9" "rs10" "rs11" "rs12" "rs13" ...

Here, we run SST for the same example data analyzed by WHT function above. The output from SST is a character vector providing the set of SNPs having a significant signal of overall GxE effect identified by subset testing to adjust for the multiple comparison.