function spectrum=absd(spectrum)
%%Usage spectrum=absd(spectrum)
%%Simple (linear) baseline correction
	bsline=@(m) sum(abs(real(spectrum(:,2))-m));
	guess=0;
	p=0;
	newm=minimize(bsline,p);
	spectrum(:,2)=spectrum(:,2)-newm;
end
