# NOT RUN {
samples <- sprintf('A%s', 1:7)
group <- 'B-ALL'
samplegroup <- get_pp_samplegroup(samples, group)
outfn <- tempfile()
samplegroup <- get_pp_samplegroup(samples, group, outfn)
# }
Run the code above in your browser using DataCamp Workspace