data(sI)
sc <- sI[,-1]
rownames(sc) <- sI[,1]
sc <- sc[-c(3, 6, 10, 11, 12)]
oe.rates(sc, depths = sI[,1])
data(mohawk)
oe.rates(mohawk)
oe.rates(as.strat.column(mohawk))
oe.rates(as.strat.column(mohawk), remove.below = 2)
oe.rates(as.strat.column(mohawk), breaks = seq(0, 1500, by = 50))
Run the code above in your browser using DataLab