## Paths to three image sections in the package:
img <- system.file(c("P105_a.tif",
"P105_b.tif",
"P105_d.tif"),
package="measuRing")
## Recursive detection (arbitrary ring borders and formation years
## are included):
mrings <- multiDetect(img,
inclu = list(c(1:40),c(1:30),c(1:41)),
last.yr = list(2014, 2013, 2012),
auto.det = c(FALSE,TRUE,FALSE),
plot = FALSE)
## Reducing the processed ring withs
wide <- reduceList(mrings)
tail(wide)
Run the code above in your browser using DataLab