## get data
data("leptoSRM")
## check input data
dataChecked <- checkInputData(scampiData=scampi(peptides=leptoSRMpeptides, 
                                                proteins=leptoSRMproteins, 
                                                edgespp=leptoSRMedgespp),
                              rescaling=FALSE)
## preprocess input data
tmpPrepro <- preprocessInputData(scampiData=dataChecked)
dataPrepro <- tmpPrepro[["dataPrepro"]]
myCCList <- tmpPrepro[["ccList"]]
rm(tmpPrepro)
## compute covariance matrices
myCCList <- lapply(myCCList, getCovU,
                   beta=0.2,
                   tau=0.5)
## compute protein and peptide abundance scores
scampiRes <- 
  quantifyProteins(scampiData=dataPrepro, ccList=myCCList, 
                   paramList=list(LSE=c(alphaH=0, betaH=0.2, muH=0.3, 
                                        tauH=0.2)),
                   quantifyPeptides=FALSE)
Run the code above in your browser using DataLab