diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-05-05 15:11:07 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-05-05 15:11:07 +0000 |
| commit | d38e129954e952c0cc6bcbae88c5a2bcbca024f8 (patch) | |
| tree | 9bddce2b18cd4fb8c1285b6a138d913c6f669996 | |
| parent | 2cf977cb94fcf6e68b4a75cdf33a29a5308b9457 (diff) | |
- Fix of the drfit() function for the case that the calculation
of the confidence interval fails
- Updated version of the drfit-Rnews preprint
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@77 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
| -rw-r--r-- | DESCRIPTION | 4 | ||||
| -rw-r--r-- | R/drfit.R | 6 | ||||
| -rw-r--r-- | inst/doc/drfit-Rnews.pdf | bin | 233496 -> 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> @@ -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 Binary files differindex 25f36e4..571f69e 100644 --- a/inst/doc/drfit-Rnews.pdf +++ b/inst/doc/drfit-Rnews.pdf |