# 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