diff options
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) |