dat <- as.numeric(runif(100))
class(dat)
[1] "numeric"
pdens <- function(vec){
    plot(density(vec))
}
pdens(dat)