#Creates a fake dataframe
h <- c(29.1,28, 24.5, 26, 21,20.5,20.1);
trees.per.plot<-35; plot.area.m2<-500;
exp.factor.ha<-10000/plot.area.m2;exp.factor.ha
#Remember 1 are= 100 m2 o 1 ha= 100 ares
plot.area.ares<-plot.area.m2/100; plot.area.ares
plot.area.ha<-plot.area.m2/10000;plot.area.ha
n.ha<-trees.per.plot/plot.area.ha;n.ha #*(10000/plot.area.m2)
n.are<-trees.per.plot/plot.area.ares;n.are
#Using the domvar function
uestimator(y.by.sortx=h,nare=n.are)
Run the code above in your browser using DataLab