Re: Data Format
- To: mathgroup at smc.vnet.net
- Subject: [mg127520] Re: Data Format
- From: Ray Koopman <koopman at sfu.ca>
- Date: Thu, 2 Aug 2012 04:47:01 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <jvaran$751$1@smc.vnet.net>
On Aug 1, 2:02 am, "Nicholas Kormanik" <nkorma... at gmail.com> wrote:
> Please consider the following code, which is data imported directly into
> Mathematica via a .mtp file (Minitab Portable Worksheet), and then using
> list assignment:
>
> list = {"C1" -> {5.`, 4.`, 7.`, 3.`, 6.`, 6.`, 7.`, 1.`, 5.`, 6.`}, "C2"
> -> {2.`, 5.`, 6.`, 7.`, 7.`, 1.`, 5.`, 4.`, 7.`, 2.`}}
>
> The following two commands work:
>
> Mean["C1" /. list]
>
> Mean["C2" /. list]
>
> However I would prefer to be able to issue the following commands instead:
>
> Mean[C1]
>
> Mean[C2]
>
> How can the code at top be converted so that these simpler commands will
> work?
>
> Thanks.
>
> Nicholas Kormanik
list = {"C1" -> {5.`, 4.`, 7.`, 3.`, 6.`, 6.`, 7.`, 1.`, 5.`, 6.`},
"C2" -> {2.`, 5.`, 6.`, 7.`, 7.`, 1.`, 5.`, 4.`, 7.`, 2.`}};
Set @@@ (MapAt[Symbol,#,1]&) /@ list
{{5., 4., 7., 3., 6., 6., 7., 1., 5., 6.},
{2., 5., 6., 7., 7., 1., 5., 4., 7., 2.}}
Mean /@ {C1,C2}
{5., 4.6}