ssq-pq-charts.m

%% Benjamin Williams <bwilliams@lincoln.ac.uk>
%% jake_charts.m (GNU Octave, not MATLAB)
%%
%% pdflatex rendering charts for our paper, 'a somatic approach to combating
%% cybersickness utilising airflow feedback'



close all
clear all
clc

ssq_without = [207, 69, 136];
ssq_with    = [123, 38, 84];
ssq_labels  = {'Total Score', 'Oculomotor', 'Nausea'};

pq_without  = [1346, 845, 610, 508, 448];
pq_with     = [1473, 873, 652, 555, 474];
pq_labels   = {'a', 'b', 'c'};

ssq_combined = [ ssq_without(:), ssq_with(:) ];
x_range = 1:rows(ssq_combined');


function plotssq (data, _labels)
    
  ax = bar(data, 'grouped');
  
  set(ax(1), 'facecolor', [0.5, 0.5, 0.5]);
  set(ax(2), 'facecolor', [0.0, 0.0, 0.0]);
  set(gca, 'fontsize', 16);
  
  ylim([0 250]);
  xticklabels(_labels);
  ylabel("Severity score", 'fontsize', 16);
  
  l = legend({'Without Feedback', 'With Feedback'});
  set(l, 'fontsize', 16);
  legend boxoff
  
  title("\\bfseries SSQ Score Comparison Between Feedback Conditions", 'fontsize', 20, 'fontweight', 'bold', 'interpreter', 'latex');
  
endfunction



plotssq(ssq_combined, ssq_labels);
print(gcf, 'ssq_plot.pdf', '-dpdflatexstandalone');
system('pdflatex ssq_plot.tex');
close all