       Accessing Elements of Arrays in TableForm

• To: mathgroup at smc.vnet.net
• Subject: [mg61667] Accessing Elements of Arrays in TableForm
• From: Gregory Lypny <gregory.lypny at videotron.ca>
• Date: Mon, 24 Oct 2005 21:07:33 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello Everyone,

I've created a fairly inelegant function for computing seven
descriptive statistics on the columns of a matrix: total, mean,
median, and so on.  It looks like this.

DescStatsIntegerForm[x_] :=
Transpose[
Flatten[
Round[
{{Total[x]}, {Mean[x]},
{Median[x]}, {StandardDeviation[x]},
{SampleRange[x]}, {Apply[Min, x\[Transpose], 2]}, {Apply[Max,
x\[Transpose], 2]}}], 1]]

For the results to read easily, I could make TableForm part of
the function as below, where the user supplies the names of the
series (the columns) and the names of the statistics are hard-wired
into the function.  This will produce a nice table with variable
names as the row headings and the names of the statistics as column
headings.  The problem is that individual elements, such as (3, 4),
are no longer accessible.  Is there any way around this?  That is,
can functions be built so that their output is in table form and
their individual elements can still be referenced for further
calculations?

Any advice would be most appreciated.

DescStatsIntegerFormTable[x_, varNamesList_] :=
TableForm[
Transpose[
Flatten[
Round[
{{Total[x]}, {Mean[x]},
{Median[x]}, {StandardDeviation[x]},
{SampleRange[x]}, {Apply[Min,
x\[Transpose], 2]}, {Apply[Max, x\[Transpose], 2]}}], 1]],