data('mycerIds10', package='INSPEcT')
tpts <- c(0, 1/6, 1/3, 1/2, 1, 2, 4, 8, 16)
eSet <- makeModelRates(getModel(mycerIds10), tpts=tpts)
exprs(eSet)
data('mycerIds10', package='INSPEcT')
viewModelRates(mycerIds10, 'degradation')
## force every degradation rate to be accepted as variable
thresholds(getModel(mycerIds10))$brown <- c(synthesis=.01, degradation=1, processing=.01)
mycerIds10 <- makeModelRates(mycerIds10)
viewModelRates(mycerIds10, 'degradation')
Run the code above in your browser using DataLab