Re: Average the same elements of the list
- To: mathgroup at smc.vnet.net
- Subject: [mg130885] Re: Average the same elements of the list
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Thu, 23 May 2013 04:09:37 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
On 5/22/13 at 2:18 AM, bipsich101 at gmail.com (BBabic) wrote:
>Hello, I have list which is something like data={
>{{a1,b1,c1},d1},{{a2,b2,c2},d2}} I would like to get new list which
>gets average of the second elements if the first elements in the
>sublists are all the same. Namely if a1=a2,b1=b2,c1=c2 new list
>would look like datanew={{a1,b1,c1},Mean[{d1,d2}] Is there an
>elegant way to do this ? Thanks!
Something like
{#[[1,1]],Mean[#[[All,-1]]]}/@GatherBy[data/.{a__,d_}->{{a},d}]
should work