pt
/
rlang
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

more save work

This commit is contained in:
Paul Trowbridge 2022-05-02 13:57:40 +00:00
parent 9297c6c99a
commit 7ff2c2224d
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Rplots.pdf
View File

Binary file not shown.

8
target.r
View File

@ -13,7 +13,7 @@ mold = "XTG154"
colgrp = ".*" colgrp = ".*"
branding = ".*" branding = ".*"
outlier = 300 outlier = 300
xfact = 4 xfact = 5
yfact = 5 yfact = 5
xtrans = "identity" xtrans = "identity"
ytrans = "identity" ytrans = "identity"
@ -22,7 +22,7 @@ uprice = 30.00
pqty = 2000 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 ) { #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=""); 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 repr.plot.height=var.dim2*yfact
); );
cp_pvt; cp_pvt;
ggsave("targetggsave.png")
#dev.print(png, 'targetpl.png')
dev.off() #dev.off()
#}; #};

BIN
targetggsave.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 339 KiB