inst/unitTests/test_loadmsQCres.R

test_loadmsQCres=function(){
  zpqc <- system.file("extdata/qc.zip", package = "proteoQC")
  unzip(zpqc)
  qcres <- loadmsQCres("./qc")
  checkEquals(dim(qcres$res_fraction_level)[1],8)
}

Try the proteoQC package in your browser

Any scripts or data that you put into this service are public.

proteoQC documentation built on Oct. 31, 2019, 3:20 a.m.