From 4d60b8ed0236af9227db79bf062f2381e683cc4a Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 22 May 2006 18:59:14 +0000 Subject: Make the logit model work again, by setting a sensible starting value for the scale argument. Now all models get separate starting arguments, with hopefully effective default values. git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@80 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- tests/XY.R | 2 +- tests/XY.Rout.save | 13 +++++++++---- 2 files changed, 10 insertions(+), 5 deletions(-) (limited to 'tests') diff --git a/tests/XY.R b/tests/XY.R index e295be4..7e3ecb2 100644 --- a/tests/XY.R +++ b/tests/XY.R @@ -1,4 +1,4 @@ library(drfit) data(XY) -rXY <- drfit(XY) +rXY <- drfit(XY,logit=TRUE,weibull=TRUE,chooseone=FALSE) rXY diff --git a/tests/XY.Rout.save b/tests/XY.Rout.save index d8098ae..9da519f 100644 --- a/tests/XY.Rout.save +++ b/tests/XY.Rout.save @@ -1,6 +1,6 @@ R : Copyright 2006, The R Foundation for Statistical Computing -Version 2.3.0 (2006-04-24) +Version 2.3.1 beta (2006-05-18 r38119) ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. @@ -19,21 +19,26 @@ Type 'q()' to quit R. Loading required package: MASS Loading required package: RODBC > data(XY) -> rXY <- drfit(XY) +> rXY <- drfit(XY,logit=TRUE,weibull=TRUE,chooseone=FALSE) Control: Fitting data... Substance X: Fitting data... Waiting for profiling to be done... +Waiting for profiling to be done... Substance Y: Fitting data... > rXY Substance ndl n lld lhd mtype logED50 2.5% 97.5% unit 1 Control 1 6 -Inf -Inf inactive NA NA NA mg/L 2 Substance X 4 12 1 3 probit 2.161905 2.105861 2.214359 mg/L -3 Substance Y 4 12 1 3 active NA NA NA mg/L +3 Substance X 4 12 1 3 logit 2.160948 2.112152 2.207912 mg/L +4 Substance X 4 12 1 3 weibull 2.174365 NA NA mg/L +5 Substance Y 4 12 1 3 active NA NA NA mg/L sigma a b 1 NA NA NA 2 0.04131746 2.161905 0.5061306 -3 NA NA NA +3 0.03758732 2.160948 0.2991424 +4 0.05723870 3.009640 2.0362368 +5 NA NA NA > -- cgit v1.2.1