path <- system.file("extdata", "multicell.tsv", package="nplr")
multicell <- read.delim(path)
# Computing models (to store in a list)
cellsList <- split(multicell, multicell$cell)
Models <- lapply(cellsList, function(tmp){
nplr(tmp$conc, tmp$resp, silent = TRUE)
})
# Visualizing
overlay(Models, xlab = expression(Log[10](Conc.)), ylab = "Resp.",
main="Superimposing multiple curves", cex.main=1.5)
Run the code above in your browser using DataLab