R/Calc_timecourse_peak.r

In wwiecek/httkgui: High-Throughput Toxicokinetics: Analtica Laser prototype

# This function calculates the peak concentration given a PK timecourse (concentration vs. time):
calc_timecourse_peak <- function(timecourse,conc.col=2,time.col=1)
{
  return(max(timecourse[,conc.col]))
}