R Notebook

pdf('hist.pdf')
set.seed(1)
d = rnorm(1000,10,5)
hist(d, main='', xlab = '', ylab = '', col='gray', asp=1/10)
dev.off()

null device 
          1