Description Usage Arguments See Also Examples
Plot the median values of multiple calibrated radiocarbon dates or bins in a barcode-like strip.
1 2 3 4 5 6 7 8 |
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 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ## 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.