aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--DESCRIPTION4
-rw-r--r--R/drfit.R6
-rw-r--r--inst/doc/drfit-Rnews.pdfbin233496 -> 235966 bytes
3 files changed, 6 insertions, 4 deletions
diff --git a/DESCRIPTION b/DESCRIPTION
index e12b6bf..fa83085 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: drfit
-Version: 0.05-76
-Date: 2006-05-04
+Version: 0.05-77
+Date: 2006-05-05
Title: Dose-response data evaluation
Author: Johannes Ranke <jranke@uni-bremen.de>
Maintainer: Johannes Ranke <jranke@uni-bremen.de>
diff --git a/R/drfit.R b/R/drfit.R
index b33d754..e3d9d3b 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -273,8 +273,10 @@ drfit <- function(data, startlogED50 = NA, chooseone=TRUE,
}
results <- data.frame(rsubstance, rndl, rn, rlld, rlhd, mtype,
logED50, logED50low, logED50high, runit, sigma, a, b)
- names(results) <- c("Substance","ndl","n","lld","lhd","mtype",
- "logED50",names(logED50conf)[[1]],names(logED50conf)[[2]],"unit","sigma","a","b")
+ names(results) <- c("Substance","ndl","n","lld","lhd","mtype","logED50",
+ paste(100*(1-level)/2,"%",sep=""),
+ paste(100*(1+level)/2,"%",sep=""),
+ "unit","sigma","a","b")
if (linlogit) {
results$c <- c
diff --git a/inst/doc/drfit-Rnews.pdf b/inst/doc/drfit-Rnews.pdf
index 25f36e4..571f69e 100644
--- a/inst/doc/drfit-Rnews.pdf
+++ b/inst/doc/drfit-Rnews.pdf
Binary files differ

Contact - Imprint