## Not run: 
#   # Create some plots to compare (1st and 3rd plots have differences)
#   comp1 <- plotExpr(c("plot(1:10)", "plot(4:40)", "x<-3", "plot(2:23)"),
#                     c("pdf", "ps"), "myPrefix", "comp1")
#   comp2 <- plotExpr(c("plot(1:11)", "plot(4:40)", "x<-3", "plot(5:15)"),
#                     c("pdf", "ps"), "myPrefix", "comp2")
# 
#   # Compare them
#   compExpr <- compare(comp1, comp2)
# 
#   # Write a HTML report
#   writeReport(compExpr)
# ## End(Not run)
Run the code above in your browser using DataLab