# GINA in the GWAS.BAYES Package

    library(GWAS.BAYES)

# Introduction

The `GWAS.BAYES` package provides statistical tools for the analysis of Gaussian GWAS data. `GWAS.BAYES` contains functions to perform GINA which is a novel iterative two step Bayesian procedure that, when compared to single marker analysis (SMA), increases the recall of true causal SNPs and drastically reduces the rate of false discoveries. Further, when compared to BICOSS (Williams, Ferreira, and Ji 2022) also available in `GWAS.BAYES`, GINA provides a quicker and more accurate analysis.

This vignette shows an example of how to use the GINA function provided in `GWAS.BAYES` to analyze GWAS data. Data has been simulated under a linear mixed model from 9,000 SNPs for 328 A. Thaliana ecotypes. The `GWAS.BAYES` package includes as `R` objects the 9,000 SNPs, the simulated phenotypes, and the kinship matrix used to simulate the data.

# Functions

The function implemented in `GWAS.BAYES` is described below:

- `GINA` Performs GINA, using linear mixed models for a given numeric phenotype vector `Y`, a SNP matrix encoded numerically `SNPs`, and a realized relationship matrix or kinship matrix `kinship`. The `GINA` function returns the indices of the SNP matrix that were identified in the best model found by the GINA algorithm.

# Model/Model Assumptions

The model for GWAS analysis used in the `GWAS.BAYES` package is

\[\begin{equation*} \textbf{Y} = X \boldsymbol{\beta} + Z \textbf{u} + \boldsymbol{\epsilon} \ \text{where} \ \boldsymbol{\epsilon} \sim N(\textbf{0},\sigma^2 I) \ \text{and} \ \textbf{u} \sim N(\textbf{0},\sigma^2 \tau K), \end{equation*}\]

where

- \(\textbf{Y}\) is the vector of phenotype responses.
- \(X\) is the matrix of SNPs (single nucleotide polymorphisms).
- \(\boldsymbol{\beta}\) is the vector of regression coefficients that contains the effects of the SNPs.
- \(Z\) is an incidence matrix relating the random effects associated with the kinship structure.
- \(\textbf{u}\) is a vector of random effects associated with the kinship structure to the phenotype responses.
- \(\boldsymbol{\epsilon}\) is the error vector.
- \(\sigma^2\) is the variance of the errors.
- \(\tau\) is a parameter related to the variance of the random effects.
- \(K\) is the kinship matrix.

Currently, all functions in `GWAS.BAYES` assume the errors of the fitted model are Gaussian.

# Example

The `GINA` function requires a vector of observed phenotypes, a matrix of SNPs, and a kinship matrix. First, the vector of observed phenotypes must be a numeric vector or a numeric \(n \times 1\) matrix. `GWAS.BAYES` does not allow the analysis of multiple phenotypes at the same time. In this example, the vector of observed phenotypes was simulated from a linear mixed model. Here are the first five elements of the simulated vector of phenotypes:

    Y[1:5]
    #> [1] 3.330224 2.733632 4.167975 3.705713 4.015575

Second, the SNP matrix has to contain numeric values where each column corresponds to a SNP of interest and the \(i\)th row corresponds to the \(i\)th observed phenotype. In this example, the SNPs are a subset of the TAIR9 genotype dataset and all SNPs have minor allele frequency greater than 0.01. Here are the first five rows and five columns of the SNP matrix:

    SNPs[1:5,1:5]
    #>      SNP2555 SNP2556 SNP2557 SNP2558 SNP2559
    #> [1,]       1       1       1       0       0
    #> [2,]       0       1       1       1       1
    #> [3,]       0       0       1       1       1
    #> [4,]       1       1       0       0       1
    #> [5,]       1       1       1       1       1

Third, the kinship matrix is an \(n \times n\) positive semi-definite matrix containing only numeric values. The \(i\)th row or \(i\)th column quantifies how observation \(i\) is related to other observations. Here are the first five rows and five columns of the kinship matrix:

    kinship[1:5,1:5]
    #>              V1         V2         V3         V4         V5
    #> [1,] 0.78515873 0.15800700 0.04264546 0.02057071 0.05643574
    #> [2,] 0.15800700 0.78146476 0.05135891 0.01476357 0.05482448
    #> [3,] 0.04264546 0.05135891 0.80199976 0.10558970 0.04888596
    #> [4,] 0.02057071 0.01476357 0.10558970 0.80030413 0.02935703
    #> [5,] 0.05643574 0.05482448 0.04888596 0.02935703 0.78401489

## GINA

The function `GINA` implements the GINA method for linear mixed models with Gaussian errors. This function takes as inputs the observed phenotypes, the SNPs coded numerically, and the kinship matrix. Further, the other inputs of `GINA` are the FDR nominal level, the maximum number of iterations of the genetic algorithm in the model selection step, and the number of consecutive iterations of the genetic algorithm with the same best model for convergence. The default values of maximum iterations and the number of iterations are the values used in the GINA manuscript (Williams, Xu, and Ferreira 202x), that is, 400 and 40 respectively.

Here we illustrate the use of GINA with a nominal FDR of 0.05.

    GINA_Result <- GINA(Y = Y, SNPs = SNPs,
                         kinship = kinship,FDR_Nominal = 0.05,
                         maxiterations = 400,runs_til_stop = 40)
    GINA_Result$best_model
    #> [1] 1350 2250 4950 5276 5850 8550 3150

GINA returns a named list where the best model values correspond to the indices of the SNP matrix. Because this is simulated data, we can compute the number of true positives and the number of false positives.

    ## The true causal SNPs in this example are
    True_Causal_SNPs <- c(450,1350,2250,3150,4050,4950,5850,6750,7650,8550)
    ## Thus, the number of true positives is
    sum(GINA_Result$best_model %in% True_Causal_SNPs)
    #> [1] 6
    ## The number of false positives is
    sum(!(GINA_Result$best_model %in% True_Causal_SNPs))
    #> [1] 1

GINA, when compared to SMA, better controls false discoveries and improves on the number of true positives. When compared to BICOSS, GINA is much quicker the BICOSS while maintaining or even increasing precision and recall of causal SNPs.

    sessionInfo()
    #> R version 4.5.2 (2025-10-31)
    #> Platform: x86_64-pc-linux-gnu
    #> Running under: Ubuntu 24.04.3 LTS
    #>
    #> Matrix products: default
    #> BLAS:   /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
    #> LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.26.so;  LAPACK version 3.12.0
    #>
    #> locale:
    #>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
    #>  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=C
    #>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
    #>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
    #>  [9] LC_ADDRESS=C               LC_TELEPHONE=C
    #> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
    #>
    #> time zone: Etc/UTC
    #> tzcode source: system (glibc)
    #>
    #> attached base packages:
    #> [1] stats     graphics  grDevices utils     datasets  methods   base
    #>
    #> other attached packages:
    #> [1] GWAS.BAYES_1.20.0 BiocStyle_2.38.0
    #>
    #> loaded via a namespace (and not attached):
    #>  [1] crayon_1.5.3        cli_3.6.5           knitr_1.51
    #>  [4] rlang_1.1.7         xfun_0.56           jsonlite_2.0.0
    #>  [7] statmod_1.5.1       buildtools_1.0.0    htmltools_0.5.9
    #> [10] maketools_1.3.2     sys_3.4.3           sass_0.4.10
    #> [13] rmarkdown_2.30      grid_4.5.2          evaluate_1.0.5
    #> [16] jquerylib_0.1.4     fastmap_1.2.0       foreach_1.5.2
    #> [19] yaml_2.3.12         lifecycle_1.0.5     memoise_2.0.1
    #> [22] BiocManager_1.30.27 compiler_4.5.2      codetools_0.2-20
    #> [25] Rcpp_1.1.1          limma_3.66.0        lattice_0.22-7
    #> [28] digest_0.6.39       R6_2.6.1            bslib_0.10.0
    #> [31] Matrix_1.7-4        tools_4.5.2         iterators_1.0.14
    #> [34] GA_3.2.5            cachem_1.1.0

# References

Williams, Jacob, Marco A. R. Ferreira, and Tieming Ji. 2022. “BICOSS: Bayesian iterative conditional stochastic search for GWAS.” BMC Bioinformatics 23 (475). https://doi.org/10.1186/s12859-022-05030-0.
Williams, Jacob, Shuangshuang Xu, and Marco A. R. Ferreira. 202x. “GINA: Genome-wide iterative fine-mapping for related individuals,” 202x.