%
%  vr = rmvecel(v,id)
%
%  Function to remove vector elements in V specified by index ID.
%
%  Written by: Kjetil Havre 13/9-1996.
%

function vr = rmvecel(v,id);
   vr = [];
   if nargin < 2
      disp('Usage: vr = rmvecel(v,id)');
      return;
   end
   n = max(size(v));
   
   for i = 1:n
      if isempty(find(id==i))
         vr = [vr; v(i)];
      end
   end
end
