data(UPSpep25)
qData <- Biobase::exprs(UPSpep25)
types <- c("Label","Analyt.Rep")
dataForXAxis <- Biobase::pData(UPSpep25)[,types]
labels <- Biobase::pData(UPSpep25)[,"Label"]
boxPlotD(qData, dataForXAxis, labels)
Run the code above in your browser using DataLab