barCodes | R Documentation |
Plot the median values of multiple calibrated radiocarbon dates or bins in a barcode-like strip.
barCodes(
x,
yrng = c(0, 0.03),
width = 20,
col = rgb(0, 0, 0, 25, maxColorValue = 255),
border = NA,
...
)
x |
A vector containing median values obtained from |
yrng |
y-axis range of the bars. |
width |
width of the bars (optional) |
col |
color of the bars |
border |
the color to draw the border. Use border = NA to omit borders. |
... |
Additional arguments affecting the plot |
medCal
; binMed
## Not run:
#Load EUROEVOL Data
data(euroevol)
#Subset Danish Dates
denmark <- subset(euroevol,Country=="Denmark")
#Calibrate and Bin
denmarkDates <- calibrate(x=denmark$C14Age,errors=denmark$C14SD)
denmarkBins <- binPrep(sites=denmark$SiteID,ages=denmark$C14Age,h=200) #200 years bin size
#Compute median date for each bin
bm <- binMed(x=denmarkDates,bins=denmarkBins)
#Compute median date for each date
dm <- medCal(denmarkDates)
#Compute SPD
denmarkSPD <- spd(x=denmarkDates,bins=denmarkBins,timeRange=c(10000,4000))
#Plot SPD and barCodes of median dates
plot(denmarkSPD,runm=200)
barCodes(dm,yrng=c(0,0.01))
#Plot SPD and barCodes of median bins in BC/AD
plot(denmarkSPD,runm=200,calendar="BCAD")
barCodes(BPtoBCAD(bm),yrng=c(0,0.01))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.