str(weight)
densityplot(~ weight, weight, xlab = "Weight bag held before breaking")
qqmath(~ weight, weight, ylab = "Weight bag held before breaking",
aspect = 1, type = c("g","p"), xlab = "Standard normal quantiles")
Run the code above in your browser using DataLab