# NOT RUN {
data("SeymourIslandAgeModels")
#Select age model B
my.agemodel=SeymourIslandAgeModels$B
#check parameters of age model
my.agemodel$parameters
plot(my.agemodel$age,my.agemodel$height,type='l',
xlim=rev(range(my.agemodel$age)),xlab='Age [Ma]',ylab='Stratigraphic Height [m]')
# }
Run the code above in your browser using DataLab