Zettelkasten

top

DE result dataset

Language: R

library(tidyverse)
library(normentR) # devtools::install_github("norment/normentR")

gwas.dat <- simulateGWAS(nSNPs = 1e6, nSigCols = 3)

sig.dat <- gwas.dat %>%
  subset(P < 0.05)
notsig.dat <- gwas.dat %>%
  subset(P >= 0.05) %>%
  slice(sample(nrow(.), nrow(.) / 5))
gwas.dat <- rbind(sig.dat,notsig.dat)