R/pzcanopy.R

Defines functions pzcanopy

pzcanopy=function(r, z, th, zq=NULL){
  if(is.null(zq)) zq = stats::quantile(z, 0.95)/th
  return(pzabovex(z[r==1], th=zq))
}
vcampuzano/HugeForestAnalysis documentation built on Dec. 8, 2019, 10:05 p.m.