# NOT RUN {
dbh1<-c(5,4,4,4,4)
dbh2<-c(5,4,4,4,6)
dbh3<-c(5,4,4,7,6)
dbh4<-c(5,4,8,7,6)
dbh5<-c(5,9,8,7,6)
dominance1<-dominance(dbh1)
dominance1
dominance2<-dominance(dbh2)
dominance2
dominance3<-dominance(dbh3)
dominance3
dominance4<-dominance(dbh4)
dominance4
dominance5<-dominance(dbh5)
dominance5
# }
Run the code above in your browser using DataLab