## 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