#Consider quantitative data (i.e. QuantData) from yeast study with ten time points of interests, three biological replicates, and no technical replicates.
#It is a time-course experiment and we attempt to compare differential abundance between time 1 and 7 in a set of targeted proteins.
#In this label-based SRM experiment, we recommend the fitted model with expanded scope of technical replication and restricted scope of biological replication (i.e. labeled=TRUE, scopeOfTechReplication="expanded", scopeOfBioReplication="restricted").
head(QuantData)
levels(QuantData$GROUP_ORIGINAL)
comparison<-matrix(c(-1,0,0,0,0,0,1,0,0,0),nrow=1)
row.names(comparison)<-"T7-T1"
# Tests for differentially abundant proteins with models:
#(1) label-based SRM experiment with restricted scope of biological replication and expanded scope of technical MS run replication (default) with or without interference
testResultOneComparison<-groupComparison(contrast.matrix=comparison, data=QuantData)
testResultOneComparison$ComparisonResult
testresult2<-groupComparison(contrast.matrix=comparison, data=QuantData, interference=FALSE)
testresult2$ComparisonResult
#(2) label-based SRM experiment with restricted scope of technical MS run replication and restricted scope of biological replication
testresult3<-groupComparison(contrast.matrix=comparison, data=QuantData, scopeOfTechReplication="restricted")
testresult3$ComparisonResult
#(3) label-based SRM experiment with expanded scope of technical MS run replication and expanded scope of biological replication
testresult4<-groupComparison(contrast.matrix=comparison, data=QuantData, scopeOfBioReplication="expanded")
testresult4$ComparisonResult
#(4) label-free SRM experiment with expanded scope of biological replication and interference
testresult5<-groupComparison(contrast.matrix=comparison, data=QuantData, labeled=FALSE)
testresult5$ComparisonResult
Run the code above in your browser using DataLab