library(dplyr)
# sample created from pbmc file
infile <- "/home/thierry/Data/Cyril/Illumina/NGS170804_v2/Csv/Div_Mut/Split_Compartment/div_mut_PBMC.csv"
pbmc_div_mut <- read.csv(infile)
by_2_factors <-
pbmc_div_mut %>%
group_by(label_subtype, status)
pbmc_div_mut <- sample_n(by_2_factors, 1000)
pbmc_div_mut <- pbmc_div_mut[, -c(1, 2)]
pbmc_div_mut$V <- factor(as.character(pbmc_div_mut$V))
save(pbmc_div_mut, file = "data/pbmc_div_mut.rda", version = 3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.