個体での血漿中濃度推移をひとつのグラフ内で重ね描き
plot.super <- function( tab, ID="ID", Y="DV", xlab="Time (hr)", ylab="Concentration (ng/mL)", ... ) { tab.plot <- data.frame(ID=tab[,ID], TIME=tab$TIME, Y=tab[,Y]) res <- xyplot( Y ~ TIME, tab.plot, groups=ID, panel=panel.superpose, type="l", xlab=xlab, ylab=ylab, ... ) res }
plot.super(tab[tab$MDV==0,], ID="SID", ylab="Plasma concentration (ng/mL)")