Filter - smooth (calculating the moving average along a vector)

This function calculates the moving average along that vector. It can be used to smooth a series.

function [vectorout]=moving_average(vectorin,eFave)
Author: Adrián Lara-Quintanilla
Date: 12/03/2013

This function calculates a moving average along a vector. "eFave" is the
number of elements around the element in the input vector "vectorin" used
to calculate the averaged value in "vectorout". The values at the
beginning and at the end of "vectorin" that could not be calculated with
and average of "eFave" elements are calculated as an average of the
remaining values at the beginning or at the end of "vectorin".
Note: "eFave" should be an odd number. If not, '1' is added to its value.

Example: vectorin=[1 2 5 4 8 9] and eFave=4.
eFave->5, vector out=[x1 x2 4 5.6 x5 x6], note that x3 and x4 can be
calculated as a mean of the 5 elements (including themselves) around
them. Because this can not be applied on x1,x2,x5,x6, and the goal is to
smooth the series, x1=1, x2=mean(1 and 2), x3=mean(8 and 9)
and x4=9