data-raw/pbmc_div_mut.R

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)
thierrycnam/igfuns documentation built on May 4, 2020, 3:21 a.m.