From 6d220f8d71564a0430473ab2465e169adddb02d8 Mon Sep 17 00:00:00 2001 From: ranke Date: Fri, 28 Apr 2006 11:42:14 +0000 Subject: - Fixed the drplot function, so the graphics parameter ask is adequately set depending on the overlay argument, and set back to the previous value - Added a test for each datase - Added a demo for each dataset - Corrected many small bugs in the documentation and improved formatting of the .Rd files git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@74 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- demo/00Index | 5 +++++ demo/IM1xIPC81.R | 6 ++++++ demo/IM1xVibrio.R | 6 ++++++ demo/XY.R | 6 ++++++ demo/antifoul.R | 5 +++++ demo/pyrithione.R | 12 ++++++++++++ 6 files changed, 40 insertions(+) create mode 100644 demo/00Index create mode 100644 demo/IM1xIPC81.R create mode 100644 demo/IM1xVibrio.R create mode 100644 demo/XY.R create mode 100644 demo/antifoul.R create mode 100644 demo/pyrithione.R (limited to 'demo') diff --git a/demo/00Index b/demo/00Index new file mode 100644 index 0000000..45b0319 --- /dev/null +++ b/demo/00Index @@ -0,0 +1,5 @@ +IM1xIPC81 Analysis of chain methylimidazolium chain length cytotox data +IM1xVibrio Analysis of chain methylimidazolium chain length V. fischeri data +XY Analysis of the sample Lemna data called XY +antifoul Analysis of the cytotoxicity data for TBT and ZnPT +pyrithione Analysis of the cytotoxicity of pyrithione and related species diff --git a/demo/IM1xIPC81.R b/demo/IM1xIPC81.R new file mode 100644 index 0000000..2615a7e --- /dev/null +++ b/demo/IM1xIPC81.R @@ -0,0 +1,6 @@ +require(drfit) +data(IM1xIPC81) +rIM1xIPC81 <- drfit(IM1xIPC81,linlogit=TRUE) +rIM1xIPC81 +drplot(rIM1xIPC81,IM1xIPC81, + overlay=TRUE,bw=FALSE,xlim=c("auto",5.5)) diff --git a/demo/IM1xVibrio.R b/demo/IM1xVibrio.R new file mode 100644 index 0000000..b92a08d --- /dev/null +++ b/demo/IM1xVibrio.R @@ -0,0 +1,6 @@ +require(drfit) +data(IM1xVibrio) +rIM1xVibrio <- drfit(IM1xVibrio) +rIM1xVibrio +drplot(rIM1xVibrio,IM1xVibrio, + overlay=TRUE,bw=FALSE,lpos="bottomleft") diff --git a/demo/XY.R b/demo/XY.R new file mode 100644 index 0000000..04a4c5e --- /dev/null +++ b/demo/XY.R @@ -0,0 +1,6 @@ +require(drfit) +data(XY) +rXY <- drfit(XY) +rXY +drplot(rXY,XY,dtype="raw", + overlay=TRUE,bw=FALSE) diff --git a/demo/antifoul.R b/demo/antifoul.R new file mode 100644 index 0000000..be63bff --- /dev/null +++ b/demo/antifoul.R @@ -0,0 +1,5 @@ +require(drfit) +data(antifoul) +rantifoul <- drfit(antifoul) +rantifoul +drplot(rantifoul,antifoul,overlay=TRUE,bw=FALSE) diff --git a/demo/pyrithione.R b/demo/pyrithione.R new file mode 100644 index 0000000..5b5a75d --- /dev/null +++ b/demo/pyrithione.R @@ -0,0 +1,12 @@ +require(drfit) +data(pyrithione) + +# MSPT and MSPHI give unreasonable fits with the linlogit model +rpyr <- drfit(pyrithione,linlogit=TRUE,linlogitWrong=c("MSPT","MSPHI")) +rpyr + +# Consult the above result list to sort out the colors +drplot(rpyr,pyrithione,dtype="none",overlay=TRUE,bw=FALSE, + colors=rainbow(14),xlim=c("auto",8)) + +drplot(rpyr,pyrithione) -- cgit v1.2.1