remnan.m

王小平《遗传算法——理论、应用与软件实现》随书光盘

function [out]=remnan(in,r);
%
% Function to remove NaN's from a
% vector and replace them with r
%
[D L]=size(in);
temp=isnan(in);
out=in;

for i = 1:L
	for j = 1:D
		if temp(j,i)==1
			out(j,i)=r;
		end
		if in(j,i)==0
			out(j,i)=r;
		end
	end
end