The manual method I learned is captured in the following formula.
load'stats/base'
midpt
-:@<:@#
median
-:@(+/)@((<. , >.)@midpt { /:~)
iqr=:((median@{.~-@>.@midpt)-(median@{.~>.@midpt))@/:~
--
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
