Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: eliminate values while caculating Mean[data]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg92000] Re: eliminate values while caculating Mean[data]
  • From: Mariano Suárez-Alvarez <mariano.suarezalvarez at gmail.com>
  • Date: Tue, 16 Sep 2008 19:25:19 -0400 (EDT)
  • References: <gag2rl$3fq$1@smc.vnet.net> <gal3e6$drc$1@smc.vnet.net>

On Sep 15, 4:38 am, kazik.lak... at gmail.com wrote:
> Hello Pasha,
> I would generally recommend you to write your own functions, it's more
> customizable:)
> I wrote the function you need. Here it is:
>
> The name of your set of data is "Data" and looks like in your post,
> say: Data={1,2,3,4,5}; Value of "Summ" gives you a sum of all non-zero
> elements in "Data" and "NonZeroValuesCounter" gives you a number of
> non-zero entries in "Data". "Average" is what you want. Just paste the
> script below into Mathematica and run:
>
> Summ = 0; NonZeroValuesCounter = 0;
> For[index = 1, index <= Length[Data], index += 1,
>   If[Data[[index]] != 0, Summ += Data[[index]];
>     NonZeroValuesCounter += 1];
>   ];
> Average = Summ/NonZeroValuesCounter;
> Print["Summ: ", Summ, "
>  NonZeroValuesCounter: ", NonZeroValuesCounter, "
>  Average: ", Average]

Even if you insist in doing things that way, you
can do them more Mathematica-ly: For example,

myMean[ll_] := Module[{n = 0, s = 0},
  Scan[If[# > 0, s += #; n += 1] &, ll];
  s/n
  ];

-- m


  • Prev by Date: Re: how to test where a list contains constant(s) or not
  • Next by Date: Re: how to test where a list contains constant(s) or not
  • Previous by thread: Re: eliminate values while caculating Mean[data]
  • Next by thread: Regressions in Mathematica