Skip to content

Instantly share code, notes, and snippets.

@apg

apg/stats.el

Created July 10, 2014 15:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save apg/a290232f9125afa26b80 to your computer and use it in GitHub Desktop.
Save apg/a290232f9125afa26b80 to your computer and use it in GitHub Desktop.
Download ZIP
stats
Raw
stats.el
(let* ((values '(11152 6423 8383 7466 6759 7249 6951 8793 7949 6840 7209 8022 11493 11331 6787 5616 9175 9528 7883 7210 10142))
(sum (reduce '+ values))
(avg (/ sum (length values)))
(mini (apply 'min values))
(maxi (apply 'max values))
(dev (reduce '+ (mapcar '(lambda (x) (* (- x avg) (- x avg))) values)))
(std (sqrt (/ dev (length values)))))
(list sum avg mini maxi dev std))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment