From 52bb819dac45d1d8ddfba2e88c0e476014c28774 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 12 Jul 2017 15:56:50 +0200 Subject: Improve y axis limits --- DESCRIPTION | 2 +- R/checkexperiment.R | 4 ++-- 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) -- cgit v1.2.1