# NOT RUN {
data("SportsCards")
summary(SportsCards)
plot(trade ~ permonth, data = SportsCards,
ylevels = 2:1, breaks = c(0, 5, 10, 20, 30, 70))
plot(trade ~ years, data = SportsCards,
ylevels = 2:1, breaks = c(0, 5, 10, 20, 60))
# }
Run the code above in your browser using DataLab