# NOT RUN {
with(data = GD,
hist(attf,prob=TRUE))
with(data = GD,
lines(density(attf)))
# Trellis Approach
histogram(~attf, data = GD, type="density",
panel = function(x, ...) {
panel.histogram(x, ...)
panel.densityplot(x, col = "blue", plot.points=TRUE, lwd=2)
} )
# }
Run the code above in your browser using DataLab