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())
ratesFirstGuessVar(mycerIds, 'synthesis')
Run the code above in your browser using DataLab