From f2a378b45ed4de33a66679c8f280207d94892dd2 Mon Sep 17 00:00:00 2001 From: ranke Date: Wed, 21 Dec 2005 15:57:11 +0000 Subject: Added a simple test for the drfit function. git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@50 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- tests/01drfit.R | 4 ++++ tests/01drfit.Rout.save | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100644 tests/01drfit.R create mode 100644 tests/01drfit.Rout.save (limited to 'tests') diff --git a/tests/01drfit.R b/tests/01drfit.R new file mode 100644 index 0000000..7e775fe --- /dev/null +++ b/tests/01drfit.R @@ -0,0 +1,4 @@ +library(drfit) +data(antifoul) +r <- drfit(antifoul) +r diff --git a/tests/01drfit.Rout.save b/tests/01drfit.Rout.save new file mode 100644 index 0000000..c04e428 --- /dev/null +++ b/tests/01drfit.Rout.save @@ -0,0 +1,33 @@ + +R : Copyright 2005, The R Foundation for Statistical Computing +Version 2.2.1 (2005-12-20 r36812) +ISBN 3-900051-07-0 + +R ist freie Software und kommt OHNE JEGLICHE GARANTIE. +Sie sind eingeladen, es unter bestimmten Bedingungen weiter zu verbreiten. +Tippen Sie 'license()' or 'licence()' für Details dazu. + +R ist ein Gemeinschaftsprojekt mit vielen Beitragenden. +Tippen Sie 'contributors()' für mehr Information und 'citation()', +um zu erfahren, wie R oder R packages in Publikationen zitiert werden können. + +Tippen Sie 'demo()' für einige Demos, 'help()' für on-line Hilfe, oder +'help.start()' für eine HTML Browserschnittstelle zur Hilfe. +Tippen Sie 'q()', um R zu verlassen. + +> library(drfit) +Lade nötiges Paket: RODBC +> data(antifoul) +> r <- drfit(antifoul) + +TBT: Fitting data... + +Zn Pyrithion: Fitting data... +> r + Substance n lld lhd mtype logEC50 std unit sigma +1 TBT 15 -2.709271 2.39794 probit -0.1643560 0.05349217 µM 0.1928611 +2 Zn Pyrithion 9 -2.107210 2.00000 probit -0.3979222 0.05393693 µM 0.2286560 + a b +1 -0.1643560 0.6763882 +2 -0.3979222 0.4169632 +> -- cgit v1.2.1