# NOT RUN {
ss1 <- star.phases('Aldebaran',-4000, c(35,-8,200))
# One can then look at the star's phase type:
ss1$metadata$type
# Date range of seasons:
ss1$metadata$seasons
# Date range of phase-type events:
ss1$metadata$events
# And plot them:
plot(ss1)
# You can play with the parameters and see how predictions change:
ss1 <- star.phases('Aldebaran',-4000, c(35,-8,200), alt.hor=2, alt.rs=5)
plot(ss1)
# }
Run the code above in your browser using DataLab