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.610900 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.120233 #> 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