# [R] what is this averaging function called ?, has R a built in function for it ?

Sat Dec 4 23:11:40 CET 2010

```I know little of statistics and have created this function out of intuition.
But since this algorithm is so basic I wonder what is the proper name of
this function and is it build in R.

here is some code in PHP to illustrate what the function is doing, it uses
some function I created but the meaning is obvious:

#get csv file and interchange rows with columns to get two arrays
\$csv = aic(getcsv(file_get_contents("out.csv")));
#now those arrays contained in one bigger array are sorted
array_multisort(\$csv,SORT_NUMERIC,\$csv,SORT_NUMERIC);

#second array is created and values that will be put on x or 0 axis are made
unique with every y or 1
# value is going into array under x/0 it will be used after to make mean
arithmetic, geometric or harmonic
foreach (\$csv as \$k=>\$x) {
\$sum[\$x][] = \$csv[\$k];
}

#the x values are put on other array for later use
\$x = array_keys(\$sum);
\$rang = \$sum = array_values(\$sum);

#and here is the key feature, to smooth the line the function looks for (in
this case) 500 values above and beond given value
# if they exist of course, the search stops when search goes outside the
array
# the search also stop when number of gathered values goes beyond 500 or
next value that would be added will be making
# this value more than 500, you can imagine that there could be a large
spike in data and this would be affecting points near
# if this precaution haven't been conceived
foreach (\$rang as \$k=>&\$v) {
if (!(\$k % 100)) echo \$k.' ';
\$up = \$down = array();
\$walk = 0;
while (true) {
++\$walk;
if (isset(\$sum[\$k-\$walk]) and
count(\$v)+count(\$up)+count(\$sum[\$k-\$walk])<500)
\$up = array_merge(\$up,\$sum[\$k-\$walk]);
else break;
}
\$walk = 0;
while (true) {
++\$walk;
if (isset(\$sum[\$k+\$walk]) and
count(\$v)+count(\$down)+count(\$sum[\$k+\$walk])<500)
\$down = array_merge(\$down,\$sum[\$k+\$walk]);
else break;
}

\$rang[\$k] = array_merge(\$up,\$rang[\$k],\$down);
# after gathering data for given point it makes a mean, in this case
arithmetic
\$rang[\$k] = array_sum(\$rang[\$k])/count(\$rang[\$k]);
}
# now the array with x values can be added and fipped array is ready to go
to a file
\$csv = aic(array(\$x,\$rang));

# in php this is awfully slow but I like it because it is sensitive for the
densiti of the data and to not goes away in strange
# directions when data density becomes very low
--
View this message in context: http://r.789695.n4.nabble.com/what-is-this-averaging-function-called-has-R-a-built-in-function-for-it-tp3072826p3072826.html
Sent from the R help mailing list archive at Nabble.com.

```