aboutsummaryrefslogtreecommitdiff
path: root/R/drfit.R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2006-05-05 15:11:07 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2006-05-05 15:11:07 +0000
commitd38e129954e952c0cc6bcbae88c5a2bcbca024f8 (patch)
tree9bddce2b18cd4fb8c1285b6a138d913c6f669996 /R/drfit.R
parent2cf977cb94fcf6e68b4a75cdf33a29a5308b9457 (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
Diffstat (limited to 'R/drfit.R')
-rw-r--r--R/drfit.R6
1 files changed, 4 insertions, 2 deletions
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

Contact - Imprint