diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-04-28 11:42:14 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-04-28 11:42:14 +0000 |
| commit | 6d220f8d71564a0430473ab2465e169adddb02d8 (patch) | |
| tree | 2c5293bc1895ee3c8868f2139d1dcae334f9b1c3 /demo | |
| parent | 2fad306141599983f03ddaf277ac7cccfc04523f (diff) | |
- 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
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/00Index | 5 | ||||
| -rw-r--r-- | demo/IM1xIPC81.R | 6 | ||||
| -rw-r--r-- | demo/IM1xVibrio.R | 6 | ||||
| -rw-r--r-- | demo/XY.R | 6 | ||||
| -rw-r--r-- | demo/antifoul.R | 5 | ||||
| -rw-r--r-- | demo/pyrithione.R | 12 |
6 files changed, 40 insertions, 0 deletions
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) |