From 6115b853e95eb316ee5258f8c9d87ac7a3740c38 Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Wed, 9 Apr 2008 11:54:19 +0000
Subject: - Added the possibility to manipulate axes and plot.frame - Adapted
 the test to the improved confidence interval fitting

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@93 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/drplot.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/drplot.R b/R/drplot.R
index 507119c..55b9da4 100644
--- a/R/drplot.R
+++ b/R/drplot.R
@@ -4,6 +4,7 @@ drplot <- function(drresults, data,
         xlim = c("auto","auto"), ylim = c("auto","auto"),
         xlab = paste("Decadic Logarithm of the dose in ", unit),
         ylab = "Normalized response",
+        axes = TRUE, frame.plot = TRUE,
         postscript = FALSE, pdf = FALSE, png = FALSE, 
         bw = TRUE,
         pointsize = 12,
@@ -84,7 +85,9 @@ drplot <- function(drresults, data,
             xlim = xlim,
             ylim = ylim,
             xlab = xlab,
-            ylab = ylab)
+            ylab = ylab,
+            axes = axes,
+            frame.plot = frame.plot)
     } else {
         # If overlay plot is not requested, ask before showing multiple plots on the screen
         if (!postscript && !png && !pdf && length(dsubstances) > 1) {
@@ -133,7 +136,9 @@ drplot <- function(drresults, data,
                         xlim = xlim,
                         ylim = ylim,
                         xlab = xlab,
-                        ylab = ylab)
+                        ylab = ylab,
+                        axes = axes,
+                        frame.plot = frame.plot)
                 }
                 if (!overlay) legend(lpos, i, lty = 1, col = color, inset=0.05)
                 tmp$dosefactor <- factor(tmp$dose)  # necessary because the old
-- 
cgit v1.2.1