diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/drfit.R | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 |