The function formats the density distribution from the histogram function
get_density(hist)
hist
histogram
array
x <- runif(1000) density <- get_density( hist(x, plot=FALSE))