From d38e129954e952c0cc6bcbae88c5a2bcbca024f8 Mon Sep 17 00:00:00 2001 From: ranke Date: Fri, 5 May 2006 15:11:07 +0000 Subject: - 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 --- R/drfit.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'R') 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 -- cgit v1.2.1