data(cytotox)
## example 1
# calculate EC50 of heavy metal Ni(2+) on the MCF-7 cells
model.ni <- cytotox$sgl$model
param.ni <- cytotox$sgl$param
ECx(model.ni, param.ni, effv = 0.5)
## example 2
# calculate EC5 and EC50 of four heavy metals and four ionic liquids on the MCF-7 cells
model <- cytotox$sgl$model
param <- cytotox$sgl$param
ECx(model, param, effv = c(0.05, 0.50))
Run the code above in your browser using DataLab