# NOT RUN {
densplot(Theoph, conc, grid = TRUE )
densplot(Theoph, conc, Subject )
densplot(Theoph, conc, , Subject )
attr(Theoph,'title') <- 'Theophylline'
densplot(Theoph, conc, main= function(x,...)attr(x,'title'))
densplot(Theoph, conc, sub= function(x,...)attr(x,'title'))
# }
Run the code above in your browser using DataLab