subvector.m

来自「这是用matlab编写的支持向量机的函数工具箱」· M 代码 · 共 18 行

function ret = subvector ( t ,  o ) 
# o specifies the columns that were omit. 
 if ((nargin != 2))
    usage ("subvector(t,o)");
  endif
s = size(t) ; 
h = s(2) ; 

v=[];
newl=0;
for l=1:h
	if ( !o(l) ) 
		newl++;
		v(newl) = t(l) ;
	endif
		
endfor
ret = v ;