Re: Data Format
- To: mathgroup at smc.vnet.net
- Subject: [mg127526] Re: Data Format
- From: Murta <rodrigomurtax at gmail.com>
- Date: Thu, 2 Aug 2012 04:49: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>
Hi Nicholas, you could try this:
list={"C1"->{5.`,4.`,7.`,3.`,6.`,6.`,7.`,1.`,5.`,6.`},"C2"->{2.`,5.`,6.`,7.`,7.`,1.`,5.`,4.`,7.`,2.`}};
createSymbolsFromList[list_]:=Module[{varList},
Clear @@ list[[All,1]] // Quiet;
(Evaluate[Symbol[#[[1]]]] = #[[2]])&/@list;
]
createSymbolsFromList[list]
{Mean[C1],Mean[C2]}
---------
output {5.,4.6}
Best Regards
Murta