function [y,z]=mevar(x);
%--------------------------------------------------------------------------
%Esta es una función que calcula la media y varianza de un vector. 
%Si es una matriz el input que se está dando devuelve un error.
%--------------------------------------------------------------------------
A=size(x);
if A(1,1)>1 & A(1,2)>1
    y=sprintf('Error: La función solo acepta vectores');
    z=sprintf('Error: La función solo acepta vectores');
else
    n=length(x);
    y=sum(x)/n;
    z=sum((x-y).^2)/n;
end