data("leptoSRM")
dataChecked <- checkInputData(scampi(peptides=leptoSRMpeptides,
proteins=leptoSRMproteins,
edgespp=leptoSRMedgespp),
rescaling=FALSE)
dataPrepro <- preprocessInputData(dataChecked)
Run the code above in your browser using DataLab