Slug Plot

Example - Calculated Quantiles

Code Used

#pdf(file="F:/Website/slug/calculated-slug-large.pdf", width = 15, height = 7.5)

Import
Data

### Import Data
data.to.plot <- bolus
dose <- 120000

data.to.plot <- data.to.plot[data.to.plot["AMT"]==0 &
    data.to.plot["MDV"]==0 & data.to.plot["DOSE"] == dose,]
data.to.plot <- data.to.plot[data.to.plot["TIME"] <= 10,]

### End Import

Set up/Plot
the graph

### Make Slug Plot
plot.slug(
  column.x = "TIME",
  column.y = "DV",
  data = data.to.plot,
  points.mean = FALSE,
  xlab = "Time [units]", 
  ylab1 = "Response [units]", 
  ylab2 = "Residuals [units]",
  main = "Calculated Quantiles",
)

#dev.off()