stretch | R Documentation |
Stretch squeezed depths e.g., calculate the original depths of depths that were squeezed. Accompanies the squeeze function.
stretch(d, boundary, times)
d |
The depth(s) to be stretched |
boundary |
The depth below which depths should be stretched |
times |
The factor by which the depths should be stretched |
The stretched depth(s)
Maarten Blaauw
stretch(25.75,25,20)
## Not run:
# To play the accordion, first squeeze an existing core.
# Let's squeeze the depths below 10 cm core depth 20 times:
Bacon("accordion", 1)
dets <- info$dets
dets[,4] <- squeeze(dets[,4], 10, 20)
# make a new directory for the squeezed core, and place the dets file there:
dir.create("Bacon_runs/squeezed")
write.table(dets, "Bacon_runs/squeezed/squeezed.csv", row.names=FALSE, sep=",")
# now run that squeezed core, adding a boundary (10cm) and adapting the acc.mean prior (20x):
Bacon("squeezed", 1, boundary=10, acc.mean=c(5, 20*5))
# finally, plot while stretching the depths onto the original scale:
agedepth(accordion=c(10,20))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.