data(exomecounts)
sample.names <- grep("HG.+",colnames(exomecounts),value=TRUE)
exomecounts[["bg"]] <- generateBackground(sample.names, exomecounts,
median)
exomecounts[["bg.sd"]] <- generateBackground(sample.names,
exomecounts, sd)
Run the code above in your browser using DataLab