blob: 5b5a75da84c917cedff002d87a33f78185718733 (
plain) (
tree)
|
|
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)
|