library(wooldridge)
View(crime1)
boxplot(crime1$tottime)