aboutsummaryrefslogblamecommitdiff
path: root/demo/pyrithione.R
blob: 5b5a75da84c917cedff002d87a33f78185718733 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
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)

Contact - Imprint