diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-12 15:56:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-12 15:56:50 +0200 |
| commit | 52bb819dac45d1d8ddfba2e88c0e476014c28774 (patch) | |
| tree | e3407216d9694b1b31a716e21b25cd39bb6707f9 | |
| parent | 1529b559337c2c2c2384e507e04d717ff65978e8 (diff) | |
Improve y axis limits
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | R/checkexperiment.R | 4 | ||||
| -rw-r--r-- | R/checksubstance.R | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 9a4752e..f91eda6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: drfit Version: 0.7.1 -Date: 2017-06-09 +Date: 2017-0712- Title: Dose-Response Data Evaluation Authors@R: c(person("Johannes", "Ranke", role = c("aut", "cre"), email = "jranke@uni-bremen.de")) diff --git a/R/checkexperiment.R b/R/checkexperiment.R index 5af237c..02ed706 100644 --- a/R/checkexperiment.R +++ b/R/checkexperiment.R @@ -127,7 +127,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%") boxplot(controls$response, names="controls", ylab="Response", - ylim=c(0, max(controls$response, na.rm = TRUE)), + ylim=range(controls$response, na.rm = TRUE), boxwex=0.4, main=paste("Plate ",id)) } else { @@ -147,7 +147,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%") plot(1,type="n", xlim = c(lld - 0.5, lhd + 2), - ylim = range(0, max(expdata[responsename])), + ylim = range(expdata[responsename], na.rm = TRUE), xlab = paste("decadic logarithm of the concentration in ",levels(expdata$unit)), ylab = responsename) diff --git a/R/checksubstance.R b/R/checksubstance.R index 06cc635..f22d4e2 100644 --- a/R/checksubstance.R +++ b/R/checksubstance.R @@ -70,7 +70,7 @@ checksubstance <- function(substance, db = "cytotox", experimentator = "%", plot(log10(data$conc),data[[responsename]], xlim=c(-2.5, 4.5), - ylim= c(-0.1, 2), + ylim= range(data[[responsename]], na.rm = TRUE), xlab=paste("decadic logarithm of the concentration in ",levels(data$unit)), ylab=responsename) |