################################################### ## Section 3.1: Producing plots ################################################### library("graphicsQC") plotExpr("plot(pressure)") # Demo 1 demo1Result <- plotExpr("plot(pressure)", path = "Demo1", prefix = "plot") list.files("Demo1") # Demo 2 demo2Result <- plotExpr(c("plot(pressure^.125 ~ temperature, data=pressure)", "plot(lm(pressure^.125 ~ temperature, data=pressure))"), path = "Demo2", prefix = "plot") list.files("Demo2") demo2Result # Demo 3 demo3Result <- plotFile("demo3.R", path = "Demo3") list.files("Demo3") # Demo 4 demo4Result <- plotFunction(c("boxplot", "hist"), path = "Demo4") list.files("Demo4") ################################################### ## Section 3.2: Comparing plots ################################################### compareResult <- compare(demo1Result, "Demo2/plot-log.xml") list.files("Demo1/") ################################################### ## Section 3.3: Reporting on comparisons ################################################### writeReport(compareResult) ################################################### ## Section 4: Applications and examples ################################################### # These need svn checkouts of specific versions of # R to be able to run ## plotFunction(ls("package:grid"), ## path = "R44416/QC") ## ## plotFunction(ls("package:grid"), ## path = "R44417/QC") ## ## compare("R44417/QC", "R44416/QC") ## writeReport("R44417/QC")