Skip to content

Instantly share code, notes, and snippets.

@vladiim
Created October 22, 2017 21:48
Show Gist options
  • Select an option

  • Save vladiim/7365d1476ef892f0980bc10d95f13bea to your computer and use it in GitHub Desktop.

Select an option

Save vladiim/7365d1476ef892f0980bc10d95f13bea to your computer and use it in GitHub Desktop.
estimate <- function(targetRate,difference,errorProb) {
ceiling(-log(errorProb) * targetRate / (difference^2))
}
estimate(0.045, 0.004, 0.05)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment