Topic: Growth
Topic Description:
Functions for analyzing tree growth, designed for the standard CTFS R Analytical Tables.
File: growth/growthfit.graph.r
| View File Source | Download File | No help file available |
Function: binGraphManySpecies.Panel
Function Description: binGraphManySpecies.Panel
Make a graph, 4 panels, of AGB growth and model fit of many species overlaid, predicted functions only. Must submit names of four data objects (not the object, just the name in quote marks!).Function Arguments:
| Argument | Default Value |
|---|---|
| fulldataname | |
| sitename | |
| darken | 8 |
| xrange | c(-3,3) |
| yrange | c(0,.1) |
| export | |
| outfile | "growth/linearbin.multi.pdf" |
| h | 8 |
| w | 10 |
Sample Usage:
binGraphManySpecies.Panel(c('linearbin.fit.allspp','linearbin.fit.trim3','linearbin.fit.edoro3','linearbin.fit.lenda3'), export=pdf,yrange=c(0,.25),sitename=c('Fushan','BCI','Edoro','Lenda'),darken=5,xrange=c(-3,3.5))
Function Source:
binGraphManySpecies.Panel=function(fulldataname,sitename,darken=8,xrange=c(-3,3),yrange=c(0,.1),expo
rt=pdf,outfile="growth/linearbin.multi.pdf",h=8,w=10) {
if(!is.null(export))
{
on.exit(graphics.off())
export(file=outfile,height=h,width=w)
}
par(mfcol=c(2,2),mai=c(.75,.75,.1,.1))
for(i in 1:length(fulldataname))
{
xtitle=ytitle=''
if(i==1 | i==2) ytitle='AGB growth'
if(i==2 | i==4) xtitle='DBH'
binGraphManySpecies(fulldataname=fulldataname[i],darken=darken,xrange=xrange,yrange=yrange,xtitle
=xtitle,ytitle=ytitle,export=NULL) text(-2.5,0.8*max(yrange),sitename[i],cex=1.7,pos=4)
}
}