delsamps.m

偏最小二乘算法在MATLAB中的实现

function eddata = delsamps(data,samps)
%DELSAMPS Deletes samples (rows) from data matrices.
% The inputs are the original data matrix (data) and
% the row numbers of the samples to delete (samps).
% The output is the edited data matrix (eddata).
% The I/O format is: eddata = delsamps(data,samps); 
%
% This function can also be used to delete variables
% (columns) by operating on the matrix transpose, i.e.
% eddata = delsamps(data',vars)';

% Copyright
% Barry M. Wise
% 1992
% Modified by B.M. Wise, November 1993

[m,n] = size(data);
[ms,ns] = size(samps);
samps = sort(samps);
savsamps = 1:m;
savsamps(samps) = zeros(1,ns);
savsamps = find(savsamps ~= 0);
eddata = data(savsamps,:);