DZ <- read.DZdata(system.file("DZ.csv",package="provenance"))
KDEs <- getKDEs(DZ,0,3000)
HM <- read.HMdata(system.file("HM.csv",package="provenance"))
PT <- read.HMdata(system.file("PT.csv",package="provenance"))
summaryplot(KDEs,HM,PT,ncol=2)Run the code above in your browser using DataLab