# Dataframe to be used
df<-biometrics::eucaplot2
#' ?eucaplot2
#' head(df)
datana::descstat(df[,c("dap","atot")])
#' # Using the domvar function
domvar(data=df,varint = "atot",varsort = "atot",plot.area = 500)
domvar(data=df,varint = "atot",varsort = "dap",plot.area = 500)
domvar(data=df,varint = "atot",varsort = "dap",plot.area = 500,ndom.ha = 50)
Run the code above in your browser using DataLab