From 184aacf1ad5a28b2428633cd1966d6fb881eb3b0 Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 3 Feb 2014 22:04:37 +0000 Subject: - Some updates to the packaging - Add the possibility to calculate EDx values - see ChangeLog for a full description git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@97 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- man/drfit.Rd | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) (limited to 'man') diff --git a/man/drfit.Rd b/man/drfit.Rd index 6b98f36..7237404 100644 --- a/man/drfit.Rd +++ b/man/drfit.Rd @@ -8,7 +8,9 @@ \usage{ drfit(data, startlogED50 = NA, chooseone = TRUE, probit = TRUE, logit = FALSE, weibull = FALSE, linlogit = FALSE, level = 0.95, linlogitWrong = NA, - allWrong = NA, ps0 = 1, ls0 = 0.5, ws0 = 0.5, b0 = 2, f0 = 0) + allWrong = NA, ps0 = 1, ls0 = 0.5, ws0 = 0.5, b0 = 2, f0 = 0, + showED50 = FALSE, + EDx = NULL, EDx.tolerance = 1e-4) } \arguments{ \item{data}{ @@ -68,6 +70,17 @@ \item{b0,f0}{ If the linearlogistic model is fitted, \code{b0} and \code{f0} give the possibility to adjust the starting values for the parameters b and f.} + \item{showED50}{ + If set to TRUE, the ED50 and its confidence interval on the original dose + scale (not log scale) is included in the output. + } + \item{EDx}{ + A vector of inhibition values x in percent for which the corresponding doses + EDx should be reported. + } + \item{EDx.tolerance}{ + Tolerance of the effect level, expressed on the response scale from 0 to 1. + } } \value{ \item{results}{ @@ -97,12 +110,16 @@ and in the \dQuote{weibull} fit it is the \code{shape} parameter of the fitted \code{\link{pweibull}} function. Only the \dQuote{linlogit} fit produces a third parameter \code{c} which is the variable f from the - \code{\link{linlogitf}} function.} + \code{\link{linlogitf}} function. + + If the parameter \code{showED50} was set to TRUE, the ED50 values and their + confidence intervals are also included on the original dose scale. + } } \examples{ data(antifoul) -r <- drfit(antifoul) -format(r,digits=2) +r <- drfit(antifoul, showED50 = TRUE, EDx = c(5, 10, 20)) +format(r, digits = 2) } \note{There is a demo for each dataset that can be accessed by \code{demo(dataset)}} -- cgit v1.2.1