diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2008-04-09 11:54:19 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2008-04-09 11:54:19 +0000 |
| commit | 6115b853e95eb316ee5258f8c9d87ac7a3740c38 (patch) | |
| tree | 6dd2933b0bd1610d65cf61a1236e9072ea22bfc9 /R | |
| parent | 1066c87b174f2b3df19e54adee1ee435021441c9 (diff) | |
- 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
Diffstat (limited to 'R')
| -rw-r--r-- | R/drplot.R | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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 |