rri_task_mean1.m

国外的一个PLStoolbox,主要用于处理图象,也可以用来回归,欢迎使用

function [meanmat,stdmat]=rri_task_mean(inmat,n)
% Syntax [meanmat,stdmat]=rri_task_mean(inmat,n)
% Returns a matrix of task means and standard deviations for an array
% with data for each task stacked on top of one another

[m1 m]=size(inmat);
%k=m1/n;
k=length(n);

if strcmpi(class(inmat),'single')
   meanmat=single(zeros(k,m));
else
   meanmat=zeros(k,m);
end

if(nargout>1)
	stdmat=zeros(k,m);
end

%temp=zeros(n,m);

accum = 0;

for i=1:k
	temp=inmat((accum+1):(accum+n(i)),:);
	meanmat(i,:)=mean(temp,1);

	if(nargout>1)
		stdmat(i,:)=std(temp,0,1);
	end

	accum = accum + n(i);

end