Re: eliminate values while caculating Mean[data]

*To*: mathgroup at smc.vnet.net*Subject*: [mg91951] Re: eliminate values while caculating Mean[data]*From*: kazik.lakomy at gmail.com*Date*: Mon, 15 Sep 2008 03:38:51 -0400 (EDT)*References*: <gag2rl$3fq$1@smc.vnet.net>

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] ------------- Have fun, best regards, Kazik