# NOT RUN {
library(florestal)
#loads the data
data(est1)
head(est1)
#calculates the individual woody volume
#create an object for each stratum and join with 'rbind'
IF_e1<-indvol(est1[est1$Stratum==1,],mens="strata",veg="cerradoss_df")
IF_e2<-indvol(est1[est1$Stratum==2,],mens="strata",veg="matas>10_df")
est2<-rbind(IF_e1,IF_e2)
# }
Run the code above in your browser using DataLab