# NOT RUN {
load(file.path(system.file(package="pulseTD"),"data","pulseRates.RData"))
pulseRates_correct <- correctionParams(pulseRates)
transcription = getRates(pulseRates_correct,'transcription')
degradation = getRates(pulseRates_correct, 'degradation')
processing = getRates(pulseRates_correct, 'processing')
head(transcription)
head(degradation)
head(processing)
trans = getRates(pulseRates_correct, 'transcription', timevector=c(0,1,2,3))
head(transcription)
trans=getRates(pulseRates_correct, 'transcription', timevector=c(2,3),genename=c(2,3))
head(transcription)
# }
Run the code above in your browser using DataLab