data(BC_dat)
require("dplyr")
bcs <- unlist(lapply(1:20, function(x) {
c("A", "C", "T", "G") %>% sample(replace = TRUE, size = 32) %>% paste0(collapse = "")
}))
new_read_count_table <- data.frame(read_count = sample(1:1000, size = 20), barcode = bcs)
BC_dat_new <- setReads(BC_dat, new_read_count_table)
Run the code above in your browser using DataLab