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())
mycerIdsOneGene <- mycerIds[5]
## View modeling parameters
modelingParams(mycerIdsOneGene)
## Run the modeling in a reproducible way (setting seed)
mycerIdsOneGene <- modelRates(mycerIdsOneGene, seed=1, BPPARAM=SerialParam())
## view modeled synthesis rates
viewModelRates(mycerIdsOneGene, 'synthesis')
## view gene classes
geneClass(mycerIdsOneGene)
## Divide a parallel computation into chunks
## Not run:
# nCores(mycerIds) <- parallel::detectCores()
# chunkSize <- 100
# splitIdx <- ceiling(c(1:nGenes(mycerIds))/chunkSize)
# chunks <- lapply(split(mycerIds, splitIdx), modelRates)
# mycerIdsModeled <- do.call('combine', chunks)
# ## End(Not run)
Run the code above in your browser using DataLab