clear all;

%% Test 1 - tsfcn

a1 = ao(plist('tsfcn', 't', 'yunits', 'm'));
a2 = ao(plist('tsfcn', 't', 'yunits', 'N'));

iplot(a1,a2)
iplot(a1,a2, plist('arrangement', 'subplots'))

a3 = ao(plist('tsfcn', 't', 'yunits', 'N m'));
a4 = ao(plist('tsfcn', 't', 'yunits', 'm N'));
iplot(a3,a4)

%% Test 2 - fsfcn

f1 = a1.psd
f2 = a2.psd
f3 = a3.psd
f4 = a4.psd

iplot(f1, f2)
iplot(f1, f2, plist('arrangement', 'subplots'))

iplot(f3, f4)

%% Test 3 - y data

a1 = ao(1:10, plist('yunits', 'm'));
a2 = ao(1:10, plist('yunits', 'N'));
a3 = ao(1:10, plist('yunits', 'm'));

iplot(a1,a2)
iplot(a1,a2, plist('arrangement', 'subplots'))
iplot(a1,a3)