## Not run:
# bio1 <- read.csv("my-proteome-discoverer-v1.4-export-experiment-1.csv")
# bio2 <- read.csv("my-proteome-discoverer-v1.4-export-experiment-2.csv")
# run1 <- droplevels(bio1[bio1$Quan.Usage == "Used",])
# run2 <- droplevels(bio2[bio2$Quan.Usage == "Used",])
# channels <- c("X113", "X114", "X115", "X116", "X117", "X118", "X119", "X121")
# reference <- c("X121")
#
# run1 <- meetSelection(run1, channels, reference)
# run2 <- meetSelection(run2, channels, reference)
#
# run1$experiment <- factor(1, levels=1:2, labels=c("iTRAQ-1", "iTRAQ-2"))
# run2$experiment <- factor(2, levels=1:2, labels=c("iTRAQ-1", "iTRAQ-2"))
# runs <- rbind(run1, run2)
# ## End(Not run)
Run the code above in your browser using DataLab