Can someone check whether I correctly simulate the Horseshoe pdf? 

```r
lambda = rcauchy(1000, location = 0, scale = 1)

horseshoe = rnorm(1000, 0,lambda)

hist(horseshoe, breaks = 'FD')
```

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/MLBqz.png