M=1000

sample_list=rnorm(1000)

histdata=hist(sample_list,50)

nlist=histdata$counts

centerlist=histdata$mids

#hist(sample_list,50)
hist(sample_list,50,freq=FALSE)