powered by
JeffreysPrior(u, log10lowerBound, log10upperBound)
samples <- JeffreysPrior(runif(100), -2, 8) summary(samples)
Run the code above in your browser using DataLab