# NOT RUN {
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