Ktd=seq(0, 1, .01)
Monthly=data.frame(Ktd=Ktd)
Monthly$Page=FdKtPage(Ktd)
Monthly$LJ=FdKtLJ(Ktd)
xyplot(Page+LJ~Ktd, data=Monthly,
type=c('l', 'g'), auto.key=list(space='right'))
Ktd=seq(0, 1, .01)
Daily=data.frame(Ktd=Ktd)
Daily$CPR=FdKtCPR(Ktd)
Daily$CLIMEDd=FdKtCLIMEDd(Ktd)
xyplot(CPR+CLIMEDd~Ktd, data=Daily,
type=c('l', 'g'), auto.key=list(space='right'))
Run the code above in your browser using DataLab