## get data
data("leptoSRM")
## check input data
#dataChecked <-
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)
Run the code above in your browser using DataLab