View source: R/Francis_bomb_functions.R
calc.bias | R Documentation |
calc.bias
calculates a 95
bias in zone-count ages given appropriate bomb-carbon data.
calc.bias( ref, test, nsim = 5000, plot.type = 0, x, y, age, cy, age.err, s.age, y.err, bias.step = 5, bias.range = NULL )
ref, test |
data frames representing reference and test data sets, respectively. Each row corresponds to one ref (test) datum and the columns represent data needed to perform the bomb carbon analyses. One column should represent each of the following input data in each data frame:
Note, the columns in both the |
nsim |
number of simulated data sets used in generating the distribution of h values |
plot.type |
type of plot to produce (if 0, no plot is made). See
function |
age, age.err, s.age, cy, x, y, y.err |
Character strings representing the column names for each of the required elements (see above) in the ref and test data frames. |
bias.step, bias.range |
See |
A named list of length 4 with the following elements:
obersved h-statistic value for each of the simulations
estimated 95% confidence interval for the h-statistic based on the simulations
observed h-statistic at bias levels defined by the range of biases considered
95% confidence interval about aging bias
Other Bomb Radiocarbon Analyses:
bias.plot.BR()
,
calc.h()
,
closest.pt()
,
get.h.from.bias()
,
get.nearest()
,
get.ref.line()
,
sim.hdist()
data(snapper) snapper.red <- snapper[snapper$C14year >= 1955 & snapper$C14year <= 1972, ] data(bluenose) bluenose.red <- bluenose[bluenose$C14year >= 1955 & bluenose$C14year <= 1972, ] bluenose.red <- bluenose.red[bluenose.red$C14 >= -506 & bluenose.red$C14 <= 94.0, ] calc.bias(snapper.red, bluenose.red, nsim = 5000, plot.type = 0, x = "C14year", y = "C14", age = "age", cy = "catch.year", age.err = "age.err", s.age = "samp.age", y.err = "C14.err") calc.bias(snapper.red, bluenose.red, nsim = 5000, plot.type = 1, x = "C14year", y = "C14", age = "age", cy = "catch.year", age.err = "age.err", s.age = "samp.age", y.err = "C14.err") calc.bias(snapper.red, bluenose.red, nsim = 5000, plot.type = 2, x = "C14year", y = "C14", age = "age", cy = "catch.year", age.err = "age.err", s.age = "samp.age", y.err = "C14.err")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.