Helper Function for Call Dosage
1 2 3 4 5 | RemoveDuplicateNames(data, Dirs, Controls = NULL, Jobs = names(Dirs),
Plates = lapply(lapply(seq(length(Dirs)), function(x) {
unlist(gsub(paste0(".xls|.xlsx|.txt|.csv|", paste0(names(Dirs)[x], "-")), "",
Dirs[[x]])) }), as.character), SampleIndex = which(names(data[[1]][[1]]) ==
"Sample.Name"), Target.Name = "Assay1 CN ")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.