standz.all {tgram}

Vaganov Normalized Tracheidogram

Description

The function produces a normalized tracheidogram, i.e. a curve showing variations in cell parameters as a function of the cell position within an annual ring, following the procedure of Vaganov (1990).

Usage

standz.all(traq, series, wl = NULL, w.char = NULL, order = NULL, G = 30)
standz(tgl1, G=30)

## S3 method for class 'standz.all'
plot(x, which=NULL,...)

Arguments

traq

A vector with the ordered sequences of measurements for each tracheidogram.

series

A vector of indicator values (i.e. a factor) with each level indicating each unique tracheidogram.

wl

A vector indicating if the measurement is wall or lumen.

w.char

Character used in wl to indicate "wall".

order

Vector indicating the ordering of each measurement in each lumen or wall series within a tracheidogram.

G

Number of cells to get the original measurements normalized to.

tgl1

Vector with the ordered sequences of measurements of a single tracheidogram.

x

An object of class standz.all resulting from applying the standz.all function.

which

One of NULL, "w", or any other character. This produces the plot function to draw all the tracheidograms together, only the "wall" traqueidograms or only the "lumen" ones, respectively.

...

Additional graphical parameters passed to link{plot}.

Value

standz returns a vector of length G with the normalized values. standz.all returns an object of class standz.all. Basically a list with the following elements:

data.stdz

A matrix with G columns and as many rows as unique wall and lumen tracheidograms were in the original data, each with the normalized values of each tracheidogram.

which.w

Vector indicating which rows in data.stdz are "wall" tracheidograms.

which.l

Vector indicating which rows in data.stdz are "lumen" tracheidograms.

Author(s)

Marcelino de la Cruz Rot and Lucia DeSoto

References

Vaganov, E.A. 1990. The tracheidogram method in tree-ring analysis and its application. In: Cook E.R., Kairiukstis L.A., eds. Methods of dendrochronology: applications in the environmental sciences . Kluwer Academic Publishers. Dordrecht, the Netherlands. pp. 63-76.

Examples

data(juniperus)

cosa <- with(juniperus,
                  standz.all(traq=width.um, series=traqueidogram,
                                wl=lumen.wall, w.char="w", G=20)
                  )

plot(cosa, type="l")
plot(cosa, type="l", which="w")
plot(cosa, type="l", which="l", add=TRUE)

standz(with(juniperus,width.um[traqueidogram==1 & lumen.wall =="l"]), G=20)

lines(1:20,
      standz(with(juniperus,width.um[traqueidogram==1 & lumen.wall =="l"]), G=20),
      lwd=3)