Skip to content

Instantly share code, notes, and snippets.

@8bit-pixies

8bit-pixies/pareto.R

Created April 23, 2018 12:36
Show Gist options
  • Save 8bit-pixies/12d815b57e0fff5c70ffe44f9f5d8d85 to your computer and use it in GitHub Desktop.
Save 8bit-pixies/12d815b57e0fff5c70ffe44f9f5d8d85 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pareto.R
pareto_principle <- function(x){
return (x ^ (log(0.2)/log(0.8)))
}
sprintf("%.2f of the effort comes from %.2f of the causes", 0.99, pareto_principle(0.99))
sprintf("%.2f of the effort comes from %.2f of the causes", 0.95, pareto_principle(0.95))
sprintf("%.2f of the effort comes from %.2f of the causes", 0.8, pareto_principle(0.8))
sprintf("%.2f of the effort comes from %.2f of the causes", 0.5, pareto_principle(0.5))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment