Last updated: 2018-05-12

workflowr checks: (Click a bullet for more information)

  • ✔ R Markdown file: up-to-date

    Great! Since the R Markdown file has been committed to the Git repository, you know the exact version of the code that produced these results.

  • ✔ Environment: empty

    Great job! The global environment was empty. Objects defined in the global environment can affect the analysis in your R Markdown file in unknown ways. For reproduciblity it’s best to always run the code in an empty environment.

  • ✔ Seed: set.seed(12345)

    The command set.seed(12345) was run prior to running the code in the R Markdown file. Setting a seed ensures that any results that rely on randomness, e.g. subsampling or permutations, are reproducible.

  • ✔ Session information: recorded

    Great job! Recording the operating system, R version, and package versions is critical for reproducibility.

  • ✔ Repository version: ddf9062

    Great! You are using Git for version control. Tracking code development and connecting the code version to the results is critical for reproducibility. The version displayed above was the version of the Git repository at the time these results were generated.

    Note that you need to be careful to ensure that all relevant files for the analysis have been committed to Git prior to generating the results (you can use wflow_publish or wflow_git_commit). workflowr only checks the R Markdown file, but you know if there are other scripts or data files that it depends on. Below is the status of the Git repository when the results were generated: 
    
Ignored files:
    Ignored:    .DS_Store
    Ignored:    .Rhistory
    Ignored:    .Rproj.user/
    Ignored:    analysis/.DS_Store
    Ignored:    analysis/BH_robustness_cache/
    Ignored:    analysis/FDR_Null_cache/
    Ignored:    analysis/FDR_null_betahat_cache/
    Ignored:    analysis/Rmosek_cache/
    Ignored:    analysis/StepDown_cache/
    Ignored:    analysis/alternative2_cache/
    Ignored:    analysis/alternative_cache/
    Ignored:    analysis/ash_gd_cache/
    Ignored:    analysis/average_cor_gtex_2_cache/
    Ignored:    analysis/average_cor_gtex_cache/
    Ignored:    analysis/brca_cache/
    Ignored:    analysis/cash_deconv_cache/
    Ignored:    analysis/cash_fdr_1_cache/
    Ignored:    analysis/cash_fdr_2_cache/
    Ignored:    analysis/cash_fdr_3_cache/
    Ignored:    analysis/cash_fdr_4_cache/
    Ignored:    analysis/cash_fdr_5_cache/
    Ignored:    analysis/cash_fdr_6_cache/
    Ignored:    analysis/cash_plots_cache/
    Ignored:    analysis/cash_sim_1_cache/
    Ignored:    analysis/cash_sim_2_cache/
    Ignored:    analysis/cash_sim_3_cache/
    Ignored:    analysis/cash_sim_4_cache/
    Ignored:    analysis/cash_sim_5_cache/
    Ignored:    analysis/cash_sim_6_cache/
    Ignored:    analysis/cash_sim_7_cache/
    Ignored:    analysis/correlated_z_2_cache/
    Ignored:    analysis/correlated_z_3_cache/
    Ignored:    analysis/correlated_z_cache/
    Ignored:    analysis/create_null_cache/
    Ignored:    analysis/cutoff_null_cache/
    Ignored:    analysis/design_matrix_2_cache/
    Ignored:    analysis/design_matrix_cache/
    Ignored:    analysis/diagnostic_ash_cache/
    Ignored:    analysis/diagnostic_correlated_z_2_cache/
    Ignored:    analysis/diagnostic_correlated_z_3_cache/
    Ignored:    analysis/diagnostic_correlated_z_cache/
    Ignored:    analysis/diagnostic_plot_2_cache/
    Ignored:    analysis/diagnostic_plot_cache/
    Ignored:    analysis/efron_leukemia_cache/
    Ignored:    analysis/fitting_normal_cache/
    Ignored:    analysis/gaussian_derivatives_2_cache/
    Ignored:    analysis/gaussian_derivatives_3_cache/
    Ignored:    analysis/gaussian_derivatives_4_cache/
    Ignored:    analysis/gaussian_derivatives_5_cache/
    Ignored:    analysis/gaussian_derivatives_cache/
    Ignored:    analysis/gd-ash_cache/
    Ignored:    analysis/gd_delta_cache/
    Ignored:    analysis/gd_lik_2_cache/
    Ignored:    analysis/gd_lik_cache/
    Ignored:    analysis/gd_w_cache/
    Ignored:    analysis/knockoff_10_cache/
    Ignored:    analysis/knockoff_2_cache/
    Ignored:    analysis/knockoff_3_cache/
    Ignored:    analysis/knockoff_4_cache/
    Ignored:    analysis/knockoff_5_cache/
    Ignored:    analysis/knockoff_6_cache/
    Ignored:    analysis/knockoff_7_cache/
    Ignored:    analysis/knockoff_8_cache/
    Ignored:    analysis/knockoff_9_cache/
    Ignored:    analysis/knockoff_cache/
    Ignored:    analysis/knockoff_var_cache/
    Ignored:    analysis/marginal_z_alternative_cache/
    Ignored:    analysis/marginal_z_cache/
    Ignored:    analysis/mosek_reg_2_cache/
    Ignored:    analysis/mosek_reg_4_cache/
    Ignored:    analysis/mosek_reg_5_cache/
    Ignored:    analysis/mosek_reg_6_cache/
    Ignored:    analysis/mosek_reg_cache/
    Ignored:    analysis/pihat0_null_cache/
    Ignored:    analysis/plot_diagnostic_cache/
    Ignored:    analysis/poster_obayes17_cache/
    Ignored:    analysis/real_data_simulation_2_cache/
    Ignored:    analysis/real_data_simulation_3_cache/
    Ignored:    analysis/real_data_simulation_4_cache/
    Ignored:    analysis/real_data_simulation_5_cache/
    Ignored:    analysis/real_data_simulation_cache/
    Ignored:    analysis/rmosek_primal_dual_2_cache/
    Ignored:    analysis/rmosek_primal_dual_cache/
    Ignored:    analysis/seqgendiff_cache/
    Ignored:    analysis/simulated_correlated_null_2_cache/
    Ignored:    analysis/simulated_correlated_null_3_cache/
    Ignored:    analysis/simulated_correlated_null_cache/
    Ignored:    analysis/simulation_real_se_2_cache/
    Ignored:    analysis/simulation_real_se_cache/
    Ignored:    analysis/smemo_2_cache/
    Ignored:    data/LSI/
    Ignored:    docs/.DS_Store
    Ignored:    docs/figure/.DS_Store
    Ignored:    output/fig/

Unstaged changes:
    Deleted:    analysis/cash_plots_fdp.Rmd
    Note that any generated files, e.g. HTML, png, CSS, etc., are not included in this status report because it is ok for generated content to have uncommitted changes.
Expand here to see past versions:
    File Version Author Date Message
    rmd cc0ab83 Lei Sun 2018-05-11 update
    html 0f36d99 LSun 2017-12-21 Build site.
    html 853a484 LSun 2017-11-07 Build site.
    html 0214a4b LSun 2017-06-16 data transfer
    html b141020 LSun 2017-05-09 writeups
    rmd 615c317 LSun 2017-05-09 marginal non-null

Introduction

We’ve seen that when generated from the global null, that is, when the cases and controls have no difference, the \(z\) scores’ behavior are what one would expect if simulated from correlated marginally \(N\left(0, 1\right)\) random variables.

But what if the \(z\) scores are not simulated from the global null? Are these \(z\) scores going to behave significantly different from correlated marginally \(N\left(0, 1\right)\) random samples? Let’s take a look at the real data containing true effects.

library(limma)
library(edgeR)
library(qvalue)
library(ashr)

#extract top g genes from G by n matrix X of expression

top_genes_index = function (g, X)
{return(order(rowSums(X), decreasing = TRUE)[1 : g])
}

lcpm = function (r) {
  R = colSums(r)
  t(log2(((t(r) + 0.5) / (R + 1)) * 10^6))
}

# transform counts to z scores
# these z scores are marginally N(0, 1) under null

counts_to_z = function (counts, condition) {
  design = model.matrix(~condition)
  dgecounts = calcNormFactors(DGEList(counts = counts, group = condition))
  v = voom(dgecounts, design, plot = FALSE)
  lim = lmFit(v)
  r.ebayes = eBayes(lim)
  p = r.ebayes$p.value[, 2]
  t = r.ebayes$t[, 2]
  z = sign(t) * qnorm(1 - p/2)
  return (z)
}

Generating non-null \(z\) scores from real data

For convenience and without loss of generality, we are using the liver tissue as an anchor in the simulation, and always choose top expressed genes in livers.

r.liver = read.csv("../data/liver.csv")
r.liver = r.liver[, -(1 : 2)] # remove gene name and description
Y = lcpm(r.liver)
G = 1e4
subset = top_genes_index(G, Y)
r.liver = r.liver[subset, ]

Liver vs Heart

tissue = "heart"
r = read.csv(paste0("../data/", tissue, ".csv"))
r = r[, -(1 : 2)] # remove gene name and description
## choose top expressed genes in liver
r = r[subset, ]
set.seed(777)
m = 1e3
n = 5
z.list = list()
condition = c(rep(0, n), rep(1, n))
for (i in 1 : m) {
  counts = cbind(r.liver[, sample(1 : ncol(r.liver), n)],
                 r[, sample(1 : ncol(r), n)])
  z.list[[i]] = counts_to_z(counts, condition)
}
z.mat = matrix(unlist(z.list), nrow = m, byrow = TRUE)
saveRDS(z.mat, "../output/z_5liver_5heart_777.rds")

Liver vs Muscle

tissue = "muscle"
r = read.csv(paste0("../data/", tissue, ".csv"))
r = r[, -(1 : 2)] # remove gene name and description
## choose top expressed genes in liver
r = r[subset, ]
set.seed(777)
m = 1e3
n = 5
z.list = list()
condition = c(rep(0, n), rep(1, n))
for (i in 1 : m) {
  counts = cbind(r.liver[, sample(1 : ncol(r.liver), n)],
                 r[, sample(1 : ncol(r), n)])
  z.list[[i]] = counts_to_z(counts, condition)
}
z.mat = matrix(unlist(z.list), nrow = m, byrow = TRUE)
saveRDS(z.mat, "../output/z_5liver_5muscle_777.rds")

Marginal distributions of correlated non-null \(z\) scores

Now following the simulations to explore the marginal distributions of the correlated null \(z\) scores, we are taking a look at the marginal distributions of the correlated non-null \(z\) scores. The main focus is still the number of tail observations.

Liver vs Heart

z.heart = readRDS("../output/z_5liver_5heart_777.rds")
n = ncol(z.heart)
m = nrow(z.heart)

Row-wise

Column-wise

Liver vs Muscle

z.muscle = readRDS("../output/z_5liver_5muscle_777.rds")
n = ncol(z.muscle)
m = nrow(z.muscle)

Row-wise

Column-wise

Conclusion

As expected, the empirical distribution and the indicated marginal distribution of the correlated non-null \(z\) scores are starkly different from those of the correlated null ones.

Particular interesting are the column-wise plots. The distribution of the number of tail observations is not only not close to normal, not close to what would be expected under correlated marginally \(N\left(0, 1\right)\), but also not even unimodal, not even peaked at \(m\alpha\) when \(\alpha \leq0.5\) or \(m\left(1-\alpha\right)\) when \(\alpha\geq0.5\). It suggests that there are indeed plenty of true signals, which make the marginal distribution of the \(z\) scores for a certain gene often not centered at \(0\).

Session information

sessionInfo()
R version 3.4.3 (2017-11-30)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS High Sierra 10.13.4

Matrix products: default
BLAS: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRblas.0.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ashr_2.2-2    qvalue_2.10.0 edgeR_3.20.2  limma_3.34.4 

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.16      compiler_3.4.3    pillar_1.0.1     
 [4] git2r_0.21.0      plyr_1.8.4        workflowr_1.0.1  
 [7] iterators_1.0.9   R.methodsS3_1.7.1 R.utils_2.6.0    
[10] tools_3.4.3       digest_0.6.15     evaluate_0.10.1  
[13] tibble_1.4.1      gtable_0.2.0      lattice_0.20-35  
[16] rlang_0.1.6       foreach_1.4.4     Matrix_1.2-12    
[19] parallel_3.4.3    yaml_2.1.18       stringr_1.3.0    
[22] knitr_1.20        locfit_1.5-9.1    rprojroot_1.3-2  
[25] grid_3.4.3        rmarkdown_1.9     ggplot2_2.2.1    
[28] reshape2_1.4.3    magrittr_1.5      whisker_0.3-2    
[31] MASS_7.3-47       codetools_0.2-15  backports_1.1.2  
[34] scales_0.5.0      htmltools_0.3.6   splines_3.4.3    
[37] colorspace_1.3-2  stringi_1.1.6     pscl_1.5.2       
[40] lazyeval_0.2.1    munsell_0.4.3     doParallel_1.0.11
[43] truncnorm_1.0-7   SQUAREM_2017.10-1 R.oo_1.21.0

This reproducible R Markdown analysis was created with workflowr 1.0.1