#Creates a fake dataframe
h <- c(29.1,28, 24.5, 26, 21,20.5,20.1);
sort.h<-sort(h,decreasing=FALSE);sort.h
plot.area.m2<-500;plot.area.ha<-plot.area.m2/10000;plot.area.ha
ndom.ha<-100;n.per.are<-plot.area.ha*ndom.ha;
# Using the function
uestimator(sort.h,n.per.are)
Run the code above in your browser using DataLab