diff options
Diffstat (limited to 'demo/pyrithione.R')
-rw-r--r-- | demo/pyrithione.R | 12 |
1 files changed, 12 insertions, 0 deletions
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) |