bscore.res <- sapply(as.character(unique(exampleDat$MASTER_PLATE)), bScore,
exampleDat, control = "control", treatment = "treatment", simplify = FALSE)
bscore.ttest <- sapply(names(bscore.res), tTest, bscore.res, numTreat = 3,
numCont = 3, simplify = FALSE, USE.NAMES = TRUE)
bscore.combined <- data.frame(do.call(rbind, lapply(names(bscore.ttest),
function(x) if (!is.null(bscore.ttest[[x]])) {data.frame(MASTER_PLATE = x,
siRNAs = rownames(bscore.ttest[[x]]), bscore.ttest[[x]])})))
Run the code above in your browser using DataLab