# Based on the results of sample size calculation from function designSampleSize, we generate a series of sample size plots for number of biological replicates, or peptides, or transitions or power plot.
head(QuantData)
## plot the calculated sample sizes for future experiments:
#(1) Minimal number of biological replicates per condition
result.sample<-designSampleSize(data=QuantData,numSample=TRUE,numPep=3,numTran=4,desiredFC=c(1.25,1.75),FDR=0.05,power=0.8)
designSampleSizePlots(data=result.sample)
#(2) Minimal number of peptides per protein
result.peptide<-designSampleSize(data=QuantData,numSample=2,numPep=TRUE,numTran=4,desiredFC=c(1.25,1.75),FDR=0.05,power=0.8)
designSampleSizePlots(data=result.peptide)
#(3) Minimal number of transitions per peptide
result.tran<-designSampleSize(data=QuantData,numSample=2,numPep=3,numTran=TRUE,desiredFC=c(1.25,1.75),FDR=0.05,power=0.8)
designSampleSizePlots(data=result.tran)
#(4) Power
result.power<-designSampleSize(data=QuantData,numSample=2,numPep=3,numTran=4,desiredFC=c(1.25,1.75),FDR=0.05,power=TRUE)
designSampleSizePlots(data=result.power)
Run the code above in your browser using DataLab