asbio (version 1.9-7)

Rabino_CO2: CSIRO d13C-CO2 data from Rubino et al., A revised 1000 year atmospheric 13C-CO2 record from Law Dome and South Pole, Antarctica

Description

Rabino et al. (2013) provided: CSIRO \(\delta^{13}\)C and CO\(_2\) measures covering 1000 years.

Usage

data("Rabino_CO2")

Format

Sample.type

A factor with levels firn and ice.

depth

Depth of core (in meters).

effective.age

Age of CO\(_2\) (in years AD).

d13C.CO2

\(\delta^{13}\)C (per mille).

CO2

CO\(_2\) level (in ppm).

uncertainty

Uncertainty in measures (in ppm (CO\(_2\)) or per mille (\(\delta^{13}\)C)).

Examples

data(Rabino_CO2)
data(Rabino_del13C)

op <- par(mar=c(5,4.5,1,4.5))
with(Rabino_del13C, plot(effective.age, 
d13C.CO2, xlab = "Year", type='p', 
col = 1, pch = 21, bg = 'red', ylab = ''))
axis(2, col = 'red', col.axis = 'red')
mtext(side = 2, expression(paste(delta,' ','
'^13,'C  (per mille)')), col = 'red', 
line = 3, cex = 1.2)
par(new = TRUE)

with(Rabino_CO2, plot(effective.age, 
CO2, type='p', col=1,pch = 21, 
bg = 'blue', axes = FALSE, xlab = "", ylab = ""))
axis(4, col = 'blue', col.axis = 'blue')
mtext(side=4,expression(paste('Atmospheric ', 
CO[2], ' (ppm)')), 
line = 3, col = 'blue', cex = 1.2)
par(op)