Nothing
## ----eval=FALSE---------------------------------------------------------------
# install.packages('rbacon')
## -----------------------------------------------------------------------------
library(rbacon)
## ----eval=FALSE---------------------------------------------------------------
# Bacon()
## ----eval=FALSE---------------------------------------------------------------
# ?Bacon
## ----eval=FALSE---------------------------------------------------------------
# ?agedepth
## ----eval=FALSE---------------------------------------------------------------
# Bacon('RLGH3')
## ----eval=FALSE---------------------------------------------------------------
# Bacon('RLGH3')
## ----eval=FALSE---------------------------------------------------------------
# Bacon('RLGH3', acc.mean=50, acc.shape=100)
## ----eval=FALSE---------------------------------------------------------------
# Bacon("RLGH3", acc.mean=50, hiatus.depths=125, hiatus.max=1000)
## ----eval=FALSE---------------------------------------------------------------
# Bacon("RLGH3", acc.mean=50, slump=c(180, 120, 40, 30))
## ----eval=FALSE---------------------------------------------------------------
# mydir <- tempdir()
# Bacon(coredir=mydir)
## ----eval=FALSE---------------------------------------------------------------
# Bacon(suggest=FALSE)
# Bacon(accept.suggestions=TRUE)
## ----eval=FALSE---------------------------------------------------------------
# allcores <- list.files("Bacon_runs")
# for(i in allcores)
# try(Bacon(i, accept.suggestions=TRUE))
## ----eval=FALSE---------------------------------------------------------------
# Baconvergence("MSB2K", thick=5, runs=5, ssize=100, coredir=tempfile())
## ----eval=FALSE---------------------------------------------------------------
# proxy.ghost(7)
## ----eval=FALSE---------------------------------------------------------------
# accrate.depth.ghost()
# accrate.age.ghost()
## ----echo=FALSE, include=FALSE------------------------------------------------
require(rbacon)
Bacon("MSB2K", ask=FALSE, coredir=tempdir(), suggest=FALSE)
agedepth()
## -----------------------------------------------------------------------------
Bacon.hist(20)
## -----------------------------------------------------------------------------
a.d20 <- Bacon.Age.d(20)
summary(a.d20)
hist(a.d20)
## -----------------------------------------------------------------------------
a.d30 <- Bacon.Age.d(30)
a.d20 <- Bacon.Age.d(20)
summary(a.d30-a.d20)
hist(a.d30-a.d20)
## -----------------------------------------------------------------------------
acc.d20 <- accrate.depth(20)
summary(acc.d20)
acc.a4500 <- accrate.age(4500)
summary(acc.a4500)
## ----eval=FALSE---------------------------------------------------------------
# Bacon.hist(23.45)
# depth23.45 <- Bacon.Age.d(23.45)
# hist(depth23.45)
# mean(depth23.45)
## ----eval=FALSE---------------------------------------------------------------
# Bacon("MyCore", run=FALSE)
# agedepth()
# # or if you've set the accumulation rate prior to something different than the default:
# Bacon("MyCore", run=FALSE, acc.mean=c(20,5))
# agedepth()
## ----eval=FALSE---------------------------------------------------------------
# Bacon("MyCore", thick=1)
# Bacon("MyCore", 1)
## ----eval=FALSE---------------------------------------------------------------
# Bacon("MyCore", boundary=80, acc.mean=c(10,50))
## ----eval=FALSE---------------------------------------------------------------
# Bacon.hist(23.45)
# depth23.45 <- Bacon.Age.d(23.45)
# hist(depth23.45)
# mean(depth23.45)
# quantile(depth23.45, probs=c(.025, .975))
## ----eval=FALSE---------------------------------------------------------------
# depth23.45 <- Bacon.Age.d(23.45)
# depth12.34 <- Bacon.Age.d(12.34)
# passed <- depth23.45 - depth12.34
# hist(passed)
# mean(passed)
# quantile(passed, probs=c(.025, .975))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.