aburkard

v <- 7
scale <- 5

set.seed(5)
plot(density(rinvgamma(100000, shape=v/2, scale=v/2*scale)))

set.seed(5)
plot(density(v*scale/rchisq(100000, df=v)))

require(geoR)

aburkard

find . -name "*hi*" -exec cp -i {} -t ../images_unflat/hi/ \;