##Creates a fake dataframe
set.seed(45)
x <- round(rnorm(20,mean=45,sd=10),1); y=round(1.3+35*(1-exp(-.07*x)),1)
df<-data.frame(dap=x,atot=y)
head(df)
datana::descstat(df)
##Using the domvar function
domvar(data=df,var.int="atot",var.sort="dap",plot.area=500)
Run the code above in your browser using DataLab