# NOT RUN {
data(nuclearWeaponStates)
plot(yearsSinceLastFirstTest~firstTest,
nuclearWeaponStates, type='h', xlab='', ylab='')
with(nuclearWeaponStates,
text(firstTest, yearsSinceLastFirstTest, ctry))
# }
Run the code above in your browser using DataLab