diff --git a/Rplots.pdf b/Rplots.pdf
index 75b6ba6..332420b 100644
Binary files a/Rplots.pdf and b/Rplots.pdf differ
diff --git a/target.r b/target.r
index 3a9d9fd..bcd4bd9 100644
--- a/target.r
+++ b/target.r
@@ -13,7 +13,7 @@ mold = "XTG154"
 colgrp = ".*"
 branding = ".*"
 outlier = 300
-xfact = 4
+xfact = 5
 yfact = 5
 xtrans = "identity"
 ytrans = "identity"
@@ -22,7 +22,7 @@ uprice = 30.00
 pqty = 2000
 
 
-png(filename="target.png")
+#Ipng(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="");
@@ -295,6 +295,8 @@ png(filename="target.png")
         repr.plot.height=var.dim2*yfact
     );
     cp_pvt;
+    ggsave("targetggsave.png")
+    #dev.print(png, 'targetpl.png')
 
-    dev.off()
+    #dev.off()
 #};
diff --git a/targetggsave.png b/targetggsave.png
new file mode 100644
index 0000000..9034f59
Binary files /dev/null and b/targetggsave.png differ