library(dplyr)
library(purrr)
args <- commandArgs(trailingOnly=TRUE)
normbeta <- readRDS(args[1])
keep_snps <- readRDS(args[2])
out_data <- args[3]
X <- normbeta %>%
filter(snp %in% keep_snps$snp)
saveRDS(X, file=out_data)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.