# NOT RUN {
data(Glendalough)
GlenOut = Bchronology(ages=Glendalough$ages,
ageSds=Glendalough$ageSds,
calCurves=Glendalough$calCurves,
positions=Glendalough$position,
positionThicknesses=Glendalough$thickness,
ids=Glendalough$id,
predictPositions=seq(0,1500,by=10))
# Find out which two positions (depths) to date if we have room for two more dates
# Here going to choose 3 new positions to date
newPositions = choosePositions(GlenOut, N = 3)
print(newPositions)
# Suppose you are only interested in dating the new depths at 500, 600, or 700 cm
newPositions2 = choosePositions(GlenOut, N = 2,
positions = seq(500, 700, by = 10))
print(newPositions2)
# }
Run the code above in your browser using DataLab