diff --git a/target.png b/target.png
new file mode 100644
index 0000000..7e0ee5b
Binary files /dev/null and b/target.png differ
diff --git a/target.r b/target.r
index 41ade21..3a9d9fd 100644
--- a/target.r
+++ b/target.r
@@ -21,6 +21,9 @@ lprice = .01
 uprice = 30.00
 pqty = 2000
 
+
+png(filename="target.png")
+
 #prod_plot <- function(priceg, mold, colgrp, branding, outlier, xfact, yfact,xtrans, ytrans, lprice, uprice, pqty ) {
     sql = paste("SELECT * FROM rlarp.rlang_plot('",mold,"','",priceg,"','",colgrp,"','",branding,"',",lprice,",",uprice,") x",sep="");
 
@@ -292,4 +295,6 @@ pqty = 2000
         repr.plot.height=var.dim2*yfact
     );
     cp_pvt;
+
+    dev.off()
 #};