Dose-Response data for TBT and Zink Pyrithione in IPC-81 cells

This 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)

Format

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.

Source

http://www.uft.uni-bremen.de/chemie

Examples

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.15809 -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.15809 1.04065 -0.024165 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.610810 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...
#> Error in ED50["1:50", "Lower"]: Indizierung außerhalb der Grenzen
print(rantifoul.drc, digits = 5)
#> Error in print(rantifoul.drc, digits = 5): Objekt 'rantifoul.drc' nicht gefunden