diff options
| author | yvesf <yvesf-git@xapek.org> | 2011-06-29 20:49:35 +0200 |
|---|---|---|
| committer | yvesf <yvesf-git@xapek.org> | 2011-06-29 20:49:35 +0200 |
| commit | c9f7b9f93a7048e06c212b3dad5bf0752e2672f2 (patch) | |
| tree | aa6161b428a055338547eea3d12b05c93759f5a9 /test.r | |
| parent | 7ea94ce94ea0af7df56e2d7aab6158a3edd5bb4b (diff) | |
| download | ebus-alt-c9f7b9f93a7048e06c212b3dad5bf0752e2672f2.tar.gz ebus-alt-c9f7b9f93a7048e06c212b3dad5bf0752e2672f2.zip | |
svg device
Diffstat (limited to 'test.r')
| -rwxr-xr-x | test.r | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,5 +1,6 @@ #!/usr/bin/Rscript --vanilla require(RPostgreSQL) +require(RSvgDevice) nulltime <- strptime("01.01.1970", "%d.%m.%Y") drv <- dbDriver("PostgreSQL") @@ -7,7 +8,8 @@ con <- dbConnect(drv, host="10.2.2.22", user="jack", password="jack", dbname="eb ## plot 1 -png(file = "Rplots.png", width=1500, height=800) +#png(file = "Rplots.png", width=1500, height=800) +devSVG(file="Rplots.svg",width=15,height=10) par(cex=1.25) cat("Starte Abfragen\n") brenner <- dbGetQuery(con, |