FixedPriors_03.Rmd

---
title: "CoPheScan: Example with Fixed Priors"
author: "Ichcha Manipur"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{CoPheScan: Example with Fixed Priors}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include=FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "FP-"
)
```

Fixed priors are used only when the number of traits and variants to be tested are small.

The default cophescan fixed priors, pa=3.82e-5, pc=1.82e-3, provided for `cophe.single` and `cophe.susie` are those inferred from the disease-related variant dataset in the [CoPheScan manscript](https://doi.org/10.1101/2023.06.29.546856 "cophescan") [Supplementary table 12].
Additionally, priors from other datasets tested in the [CoPheScan manscript](https://doi.org/10.1101/2023.06.29.546856 "cophescan") that match your specific use case can be taken from Supplementary table 12.

**Note:** 
In the previous version (v1.3.2), the default cophescan fixed priors for : pn, pa and pc, were derived from default coloc priors by setting p1=1e-4, p2=1e-4 and p12=1e-5.
This has now been changed as described above with priors pa=3.82e-5 and pc=1.82e-3 as default.

pa and pc should be carefully selected based on the dataset.

This example illustrates the use of cophescan for a small dataset using fixed priors where a hierarchical model cannot be applied.

```{r setup, message=FALSE, warning=FALSE}
library(cophescan)
```

#### Load test data

See the input data vignette for preparing the input for cophescan analysis.

```{r message=FALSE, warning=FALSE}
data("cophe_multi_trait_data")
names(cophe_multi_trait_data)
```

<!-- The query variant is `r toString(cophe_multi_trait_data$querysnpid)` -->

We will check for causal association between a single trait and a query variant using fixed priors.

```{r fig.width = 4, fig.height=4, fig.align = "center"}
querytrait <- cophe_multi_trait_data$summ_stat[['Trait_1']] 
querysnpid <- cophe_multi_trait_data$querysnpid
LD <- cophe_multi_trait_data$LD
```

Regional Manhattan plot showing the position of the query variant in the query trait.

```{r regManhat, fig.width = 4, fig.height=4, fig.align = "center"}
# Additional  field named 'position' is required for the Manahattan plot. It is a numeric vector of chromosal positions
querytrait$position <- sapply(querytrait$snp, function(x) as.numeric(unlist(strsplit(x, "-"))[2]))
plot_trait_manhat(querytrait, querysnpid)
```

**Cophescan with fixed priors under a single variant assumption (ABF)**

CoPheScan can be run using a single variant assumption (which uses Approximate Bayes Factors) with the `cophe.single` function.

Note:

Case where nsnps in the queried region is very high and pa\*(nsnps-1) + pc \> 1: In this case please revaluate the supplied priors or run adjust_priors function (see help) which scales down the priors while maintaining the proportion of the supplied priors.

```{r fig.width = 4, fig.height=4, fig.align = "center"}
# Run cophescan under a single causal variant assumption by providing the snpid of the known causal variant for trait 1 = querysnpid
res.single <- cophe.single(querytrait, querysnpid = querysnpid, querytrait='Trait_1')
summary(res.single)
```

We observe that the posterior probability of causal association for the query variant is 0.969 which indicates that the query trait is causally associated with the query trait.

We can also use the `cophe.hyp.predict` function to predict the hypothesis given the posterior probabilities.

```{r}
res.single.predict <- cophe.hyp.predict(res.single)
(paste0('The predicted hypothesis is: ', res.single.predict$cophe.hyp.call, ' [PP.Hc =', round(res.single.predict$PP.Hc,3), ']' ))
```

**Cophescan with fixed priors using SuSIE Bayes factors**

```{r fig.width = 4, fig.height=4, fig.align = "center", message=FALSE}
# Run cophescan with susie (multiple variants) by providing the snpid of the known causal variant for trait 1 = querysnpid
querytrait$LD <- LD
res.susie <- cophe.susie(querytrait, querysnpid = querysnpid, querytrait='Trait_1')
summary(res.susie)

res.susie.predict <- cophe.hyp.predict(res.susie)
(paste0('The predicted hypothesis is: ', res.susie.predict$cophe.hyp.call, ' [PP.Hc =', round(res.susie.predict$PP.Hc,3), ']' ))
```

We get similar results using SuSIE `cophe.susie`.
We recommend the use of cophe.susie whenever LD information is available.

Note: When no credible sets are identified using `cophe.susie` cophescan reverts to `cophe.single`.

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