# NOT RUN {
ggplot(data = GD, aes(x = attf, y = ..density..)) +
geom_histogram(binwidth = 2, fill = "cornsilk", color = "orange") +
geom_density(color = "gray", size = 1) + labs( x = "time until failure in hours")
# }
Run the code above in your browser using DataLab