Return relative distance between two representative tree rings

Return relative distance between two representative tree rings

rdst_MerginePlus(L, P, yr)

Arguments

L

is a list of tree rings(x,y coordinates).

P

data.frame (x,y,id,yr,r,deg) of radial tree ring points (TR@P)

yr

integer of year

Value

a data frame with relative distance and center angle(degree) with mergine (-90 - 0 - 360 - 90)

Examples

year.<-73
rdst.<-rdst_MerginePlus(TR@L,TR@P,year.)
plot(rdst.,xlim=c(-200,200),main=year.)
spline<-smooth.spline(rdst.$deg,rdst.$rdst, spar =0.0002)
lines(predict(spline,seq(-202,220,1)),col="red")