# NOT RUN {
# Plot some declination data:
decs <- c(10, 12, -5, 4)
plotBars(decs, unc=5)
# To visualize this data against the common solar and lunar targets:
tt <- sky.objects(c('solar extremes','lunar extremes'), epoch=-2000, lty=c(2,3))
plotBars(decs, unc=5, obj=tt)
# }
Run the code above in your browser using DataLab