% Tests the function that returns input noises for MDC1.
% 
% M Hewitson 11-04-08
% 
% $Id: test_ltpda_mdc1_input_noises.m,v 1.1 2008/04/11 12:57:02 hewitson Exp $
% 

clear all;


% get ifo noise
nifo = ltpda_mdc1_input_noises(plist('source', 'ifo'));

% get sc noise
nsc = ltpda_mdc1_input_noises(plist('source', 'sc'));

% get tm noise
ntm = ltpda_mdc1_input_noises(plist('source', 'tm'));


iplot(nifo)
iplot(nsc, ntm)


% END