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