################################################################################################

# Fill.1dimension, from Rick Condit and CTFS functions.  
# Similar to fill.dimension.  This checks whether the results of tapply
# have values for all censused plots.  missing, it will be filled with the
# value given by fill.

# Filling a 1D array resulting from tapply.

fill.1dimension=function(dataarray,class1,fill=0)
{
 if(dim(dataarray)[1]<length(class1))
  {
   m=match(class1,dimnames(dataarray)[[1]])
   dataarray=dataarray[m] 
   names(dataarray)=class1
  }

  dataarray[is.na(dataarray)]=fill
  return(dataarray)
 }
 
#################################################################################