conc <- list(.03, .1, .3, 1, 3, 10, 30, 100)
resp <- list(0, .2, .1, .4, .7, .9, .6, 1.2)
row <- list(
conc = conc,
resp = resp,
bmed = 0,
cutoff = 1,
onesd = .5,
name = "some chemical",
assay = "some assay"
)
res <- concRespCore(row, conthits = TRUE)
hitcont(res, newcutoff = 0.2)
Run the code above in your browser using DataLab