Skip to content

Instantly share code, notes, and snippets.

@aquasync
Created June 22, 2010 01:05
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save aquasync/447782 to your computer and use it in GitHub Desktop.
perfect.sample2 = function(n, dist, ...) match.fun(paste('q', dist, sep=''))((1:n) / (n+1), ...)
all.equal(perfect.sample(100, 'norm'), perfect.sample2(100, 'norm')) # => T
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment