## generate a synthtic data-set of 10 genes based on the real data-set
data('rpkms', package='INSPEcT')
tpts <- c(0, 1/6, 1/3, 1/2, 1, 2, 4, 8, 16)
tL <- 1/6
mycerIds <- newINSPEcT(tpts, tL, rpkms$foursu_exons, rpkms$total_exons,
rpkms$foursu_introns, rpkms$total_introns, BPPARAM=SerialParam())
simRates <- makeSimModel(mycerIds, 10)
simData <- makeSimDataset(simRates, tpts, 1)
## load simulated datasets
data('simRates', package='INSPEcT')
data('simData3rep', package='INSPEcT')
## measure sensitivity/sensibility of synthesis, degradation and processing
## rates identification
dev.new()
rocCurve(simRates, simData3rep)
## measure classification with a different threshold for the chi-squared
## test acceptance of models
rocCurve(simRates, simData3rep, cTsh=.2)
Run the code above in your browser using DataLab