data-raw/mucosa_div_mut.R

In thierrycnam/igfuns: Analyzes of Ig sequencing data

library(dplyr)
# sample created from mucosa  file
infile <- "/home/thierry/Data/Cyril/Illumina/NGS170804_v2/Csv/Div_Mut/Split_Compartment/div_mut_MUCOSA.csv"
mucosa_div_mut <- read.csv(infile)
by_2_factors <-
  mucosa_div_mut %>%
  group_by(label_subtype, status)
mucosa_div_mut <- sample_n(by_2_factors, 2000)
mucosa_div_mut <- mucosa_div_mut[, -c(1, 2)]
mucosa_div_mut$V <- factor(as.character(mucosa_div_mut$V))
save(mucosa_div_mut, file = "data/mucosa_div_mut.rda", version = 3)