antifoul.RdThis data set shows the response of the rat leukaemic cell line IPC-81 to dilution series of tributyltin chloride (TBT) and Zink Pyrithione as retrieved from the "cytotox" database of the UFT Department of Bioorganic Chemistry on February 25, 2004
data(antifoul)A dataframe containing 135 and 81 data points for concentrations and responses for TBT and Zink Pyrithione, respectively. Some additional columns from the database are also present.
rantifoul.ED50 <- drfit(antifoul,
linlogit = TRUE, logit = TRUE, weibull = TRUE,
chooseone = FALSE,
showED50 = TRUE, EDx = c(10))
#>
#> TBT: Fitting data...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#>
#> Zn Pyrithion: Fitting data...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
print(rantifoul.ED50, digits = 5)
#> Substance ndl n lld lhd mtype logED50 2.5% 97.5%
#> 1 TBT 38 135 -2.7093 2.3979 linlogit -0.15810 -0.26021 -0.050475
#> 2 TBT 38 135 -2.7093 2.3979 probit -0.16436 -0.26504 -0.056498
#> 3 TBT 38 135 -2.7093 2.3979 logit -0.16012 -0.26116 -0.052591
#> 4 TBT 38 135 -2.7093 2.3979 weibull -0.11507 NA NA
#> 5 Zn Pyrithion 27 81 -2.1072 2.0000 linlogit -0.41329 -0.52932 -0.299799
#> 6 Zn Pyrithion 27 81 -2.1072 2.0000 probit -0.39792 -0.50783 -0.291563
#> 7 Zn Pyrithion 27 81 -2.1072 2.0000 logit -0.40035 -0.51049 -0.293501
#> 8 Zn Pyrithion 27 81 -2.1072 2.0000 weibull -0.38795 NA NA
#> unit sigma a b c ED50 ED50 2.5% ED50 97.5%
#> 1 microM 0.19264 -0.15810 1.04066 -0.024161 0.69487 0.54927 0.89028
#> 2 microM 0.19286 -0.16436 0.67637 NA 0.68493 0.54320 0.87801
#> 3 microM 0.19199 -0.16012 0.41358 NA 0.69164 0.54808 0.88595
#> 4 microM 0.18810 0.63743 1.28891 NA 0.76724 NA NA
#> 5 microM 0.22878 -0.41329 1.74249 0.610809 0.38611 0.29558 0.50142
#> 6 microM 0.22866 -0.39792 0.41696 NA 0.40002 0.31058 0.51102
#> 7 microM 0.22802 -0.40035 0.25395 NA 0.39779 0.30868 0.50874
#> 8 microM 0.23008 0.47647 2.51561 NA 0.40931 NA NA
#> EDx10
#> 1 0.085214
#> 2 0.093077
#> 3 0.085340
#> 4 0.053392
#> 5 0.120232
#> 6 0.116872
#> 7 0.110068
#> 8 0.121166
rantifoul.drc <- drcfit(antifoul,
linlogit = TRUE, logit = TRUE, weibull = TRUE,
chooseone = FALSE,
showED50 = TRUE, EDx = c(10))
#>
#> TBT: Fitting data...
#>
#> Zn Pyrithion: Fitting data...
print(rantifoul.drc, digits = 5)
#> Substance ndl n lld lhd mtype logED50 2.5% 97.5%
#> 1 TBT 38 135 -2.7093 2.3979 linlogit NA NA NA
#> 2 TBT 38 135 -2.7093 2.3979 probit -0.16436 -0.28178 -0.072022
#> 3 TBT 38 135 -2.7093 2.3979 logit -0.16012 -0.27782 -0.067603
#> 4 TBT 38 135 -2.7093 2.3979 weibull -0.13012 -0.23786 -0.043860
#> 5 Zn Pyrithion 27 81 -2.1072 2.0000 linlogit -0.41330 -0.54457 -0.312631
#> 6 Zn Pyrithion 27 81 -2.1072 2.0000 probit -0.39792 -0.52005 -0.302705
#> 7 Zn Pyrithion 27 81 -2.1072 2.0000 logit -0.40035 -0.52324 -0.304676
#> 8 Zn Pyrithion 27 81 -2.1072 2.0000 weibull -0.37351 -0.49792 -0.276917
#> unit sigma a b c ED50 ED50 2.5% ED50 97.5%
#> 1 microM 0.19264 0.71806 1.04061 -0.024169 NA NA NA
#> 2 microM 0.19286 0.68492 -0.64209 NA 0.68492 0.52267 0.84718
#> 3 microM 0.19199 0.69165 1.05007 NA 0.69165 0.52744 0.85585
#> 4 microM 0.18900 -0.13012 0.79816 NA 0.74111 0.57828 0.90394
#> 5 microM 0.22878 0.30926 1.74257 0.611358 0.38610 0.28538 0.48682
#> 6 microM 0.22866 0.40002 -1.04159 NA 0.40002 0.30196 0.49808
#> 7 microM 0.22802 0.39779 1.71015 NA 0.39779 0.29975 0.49582
#> 8 microM 0.23077 -0.37351 1.19152 NA 0.42315 0.31775 0.52855
#> EDx10 EDx10 2.5% EDx10 97.5%
#> 1 NA NA NA
#> 2 0.093074 0.040308 0.14584
#> 3 0.085338 0.035963 0.13471
#> 4 0.069958 0.026197 0.11372
#> 5 0.120238 0.043513 0.19696
#> 6 0.116878 0.048151 0.18561
#> 7 0.110068 0.043085 0.17705
#> 8 0.087066 0.017958 0.15617