# NOT RUN {
library(florestal)
#loads the data
data("simple1")
head(simple1)
#Calculate the phytosociological parameters
IF_fito <- fito(sp=simple1$Specie, plot=simple1$Plot, d= simple1$`Diameter (cm)`, A=27)
# }
Run the code above in your browser using DataLab