Description Usage Arguments Details Value Author(s) See Also Examples
Insert or delete rings from a ring-width series
1 2 3 4 5 | insert.ring(rw.vec,rw.vec.yrs=as.numeric(names(rw.vec)),
year,ring.value=mean(rw.vec,na.rm=TRUE),
fix.last=TRUE)
delete.ring(rw.vec,rw.vec.yrs=as.numeric(names(rw.vec)),
year,fix.last=TRUE)
|
rw.vec |
a vector of data |
rw.vec.yrs |
the years for |
year |
the year to add or delete |
ring.value |
the value to add |
fix.last |
logical. If TRUE the last year of the series is fixed and the first year changes. |
Simple editing of ring widths.
A named vector.
Andy Bunn. Patched and improved by Mikko Korpela.
1 2 3 4 5 6 7 8 9 10 | library(utils)
data(gp.rwl)
series <- gp.rwl$"50A"
names(series) <- rownames(gp.rwl)
series <- series[!is.na(series)]
series
insert.ring(rw.vec=series,year=1950,ring.value=0)
insert.ring(rw.vec=series,year=1950,ring.value=0,fix.last=FALSE)
delete.ring(rw.vec=series,year=1900)
delete.ring(rw.vec=series,year=1900,fix.last=FALSE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.