library(lattice)
library(latticeExtra)
data(prodEx)
prodStat<-analyzeData(prodEx)
xyplot(prodStat$stat)
dif<-prodEx-prodStat$stat$Median;
day=as.Date('2008-8-29')
horizonplot(window(dif, start=day-90, end=day),
origin=0, layout=c(1, 22), colorkey=TRUE, colorkey.digits=1,
scales=list(y=list(relation="same")))
###With a external reference
ref1=apply(prodEx, 1, median, na.rm=1)
prodStat1=analyzeData(prodEx, ref=ref1)
identical(prodStat, prodStat1)
###Target Diagram
ndays=c(5, 10, 15, 20)
#Color
if (require(RColorBrewer)){
palette=brewer.pal(n=length(ndays), name='Set1')
TDColor<-TargetDiagram(prodEx, end=day, ndays=ndays,
color=palette)
}
#B&W
TDbw<-TargetDiagram(prodEx, end=day, ndays=ndays)
Run the code above in your browser using DataLab