contrasts: if no output, print contrasts

allefeld · Jun 29, 2023 · 8c2b115 · 8c2b115
1 parent ca2b75f
commit 8c2b115
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/contrasts.m b/contrasts.m
@@ -56,6 +56,16 @@
     cName{ci} = l(2:end);
 end
 
+% if no output, print contrasts
+if nargout == 0
+    for ci = 1 : nc
+        fprintf('%s:\n', cName{ci})
+        disp(cMatrix{ci})
+        fprintf('\n')
+    end
+    clear cMatrix cName
+end
+
 
 % This program is free software: you can redistribute it and/or modify it
 % under the terms of the GNU General Public License as published by the