added sine wave function for vc experiment

added regression script (sort-of...)

regression.m

+%% regressie
+%
+bias = x;
+r^2 = y;
+t = text(x,y,[];
+[] = '$r^2 = 'num2str(rsq)'$$b = 'numstr(bias)'$'];
+t.fontsize = 20;
\ No newline at end of file

sine_wave_function.m

+%% Vestibular Signal
+% sine wave function plot
+cfn = pb_clean;
+cfn = pb_newfig(cfn);
+
+
+A = 70; %amplitude
+f = 1/(2*pi); %frequency
+t = 0.1:0.1:200; %time vector
+
+w = tukeywin(2000,0.25);
+w = w';
+
+y = A*sin(2*pi*f*t).*w;
+
+plot(t,y);
+title('Sine wave function VC');
+xlabel('Time(s)');
+ylabel('Amplitude($^{\circ}$)');
+