Nick Dokos wrote:
[...]
> I cribbed heavily from the implementation of vmedian. Although there is
> no key binding, you can even use the above in an interactive Calc
> session, by entering the formula in algebraic form. I yanked the vector
> twice onto the Calc stack and then entered 'vmode($) with the following
> result:
This does the wrong thing for bimodal lists of numbers, since the
correct answer in that case is the list of modes. Here's an
elisp implementation that's a bit shorter:
(require 'cl)
(defun mode (&rest list)
(let ((ret nil) val count)
(loop for n in list
if (assq n ret)
do (incf (cdr (assq n ret)))
else
do
(push (cons n 1) ret))
(setq ret (sort ret (lambda (a b) (> (cdr a) (cdr b)))))
(setq val (list (caar ret))
count (cdar ret))
(loop for (n . c) in (cdr ret)
while (= c count)
do (push n val))
val))
And here's how to use it in the proffered table:
| Date Stamp | Systalic | Diastalic | Pulse |
|------------------------+----------+-----------+-------|
| [2011-07-19 Tue 02:26] | 138 | 92 | 74 |
| [2011-07-20 Wed 04:03] | 130 | 85 | 74 |
|------------------------+----------+-----------+-------|
| min | 130 | 85 | 74 |
| max | 138 | 92 | 74 |
| mode | 138, 130 | 92, 85 | 74 |
#+TBLFM:
@II+1$2..@II+1$4=vmin(@I..@II)::@II+2$2..@II+2$4=vmax(@I..@II)::@II+3$2..@II+3$4='(mapconcat
'number-to-string (mode @I..@II) ", ");N
Lawrence
--
Lawrence Mitchell <[email protected]>
