rankp.res <- sapply(as.character(unique(exampleDat$MASTER_PLATE)),
rankProdHits, exampleDat, control = "control", treatment = "treatment",
simplify = FALSE)
rankp.c <- data.frame(do.call(rbind,
lapply(names(rankp.res), function(x) rankp.res[[x]])))
Run the code above in your browser using DataLab