d=log(2)/2
s=10
f.new(2,s,d) # Half-life 2, so after 2h the abundance should be half the steady state
f.old.equi(2,s,d)
s/d
t<-seq(0,10,length.out=100)
plot(t,f.new(t,s,d),type='l',col='blue',ylim=c(0,s/d))
lines(t,f.old.equi(t,s,d),col='red')
abline(h=s/d,lty=2)
abline(v=2,lty=2)
# so old and new RNA are equal at t=HL (if it is at steady state at t=0)
plot(t,f.new(t,s,d),type='l',col='blue')
lines(t,f.old.nonequi(t,f0=15,s,d),col='red')
abline(h=s/d,lty=2)
abline(v=2,lty=2)
# so old and new RNA are not equal at t=HL (if it is not at steady state at t=0)
Run the code above in your browser using DataLab