cbk.lame.delivery: Estimate delivery rate of chem
In misasa/chelyabinsk: Express geochemical datasets

Description Usage Arguments Details Value Examples

Estimate delivery rate of chem. Calculation is made in dimension of CGS.

1 2	cbk.lame.delivery(pmlame, intlame, sputter.rate = 1.1e-09, verbose = FALSE)

`pmlame`	A pmlame with row of stone and column of chem [g/g].
`intlame`	A pseudo-pmlame of ion intensity with row of acq and column of isomeas [cps]. Typical rowname is ‘trc_cpx_klb1@1’. This is like array of I(Li7), ..., I(Sr88).
`sputter.rate`	Sputter rate [g/s] (default: 1.1e-9 that corresponds to abbration of 40 s to produce a pit with diameter of 25 micron, depth of 30 micron, and density of 3 g/cc). This also can be vector with name of acqlist, that should be consistent with rownames of intlame.
`verbose`	Output debug info (default: FALSE).

With ion Si29 intensity 3.85e+05 [cps], element SiO2 abundance 59 wt estimated to be 1.25 ppm.

Delivery rate of element from solid target to detector.

pmlame0      <- data.frame(row.names=c("ref-gl-tahiti","ref-cpx-klb1"),SiO2=c(0.590,0.520),Li=c(20.8e-06,1.37e-06),Sr=c(107e-06,36.1e-06))
pmlame1      <- cbk.lame.reduce(pmlame0)
intlame0     <- data.frame(row.names=c("ref_gl_tahiti@1","ref_cpx_klb1@1"),Si29=c(3.85e+05,3.95e+05),Li7=c(1.87e+03,1.73e+02),Sr88=c(3.24e+04,1.50e+04))
radius       <- 12.5e-6 # Radius of a pit [m]
depth        <- 30e-6   # Depth of a pit [m]
t            <- 40      # Period of irradiation [s]
density      <- 3       # Density of solid target [g/cc]
sputter.rate <- 3.14 * (radius * 100)^2 * (depth * 100) * density / t # [g/s]
cbk.lame.delivery(pmlame1,intlame0,sputter.rate)