comparison scripts/statistics/base/kurtosis.m @ 19833:9fc020886ae9

maint: Clean up m-files to follow Octave coding conventions. Try to trim long lines to < 80 chars. Use '##' for single line comments. Use '(...)' around tests for if/elseif/switch/while. Abut cell indexing operator '{' next to variable. Abut array indexing operator '(' next to variable. Use space between negation operator '!' and following expression. Use two newlines between endfunction and start of %!test or %!demo code. Remove unnecessary parens grouping between short-circuit operators. Remove stray extra spaces (typos) between variables and assignment operators. Remove stray extra spaces from ends of lines.
author Rik <rik@octave.org>
date Mon, 23 Feb 2015 14:54:39 -0800
parents 4197fc428c7d
children
comparison
equal deleted inserted replaced
19832:a1acca0c2216 19833:9fc020886ae9
90 endif 90 endif
91 91
92 if (nargin < 2 || isempty (flag)) 92 if (nargin < 2 || isempty (flag))
93 flag = 1; # default: do not use the "bias corrected" version 93 flag = 1; # default: do not use the "bias corrected" version
94 else 94 else
95 if ((! isscalar (flag)) || (flag != 0 && flag != 1)) 95 if (! isscalar (flag) || (flag != 0 && flag != 1))
96 error ("kurtosis: FLAG must be 0 or 1"); 96 error ("kurtosis: FLAG must be 0 or 1");
97 endif 97 endif
98 endif 98 endif
99 99
100 nd = ndims (x); 100 nd = ndims (x);
157 %! assert (lastwarn (), ""); 157 %! assert (lastwarn (), "");
158 %! unwind_protect_cleanup 158 %! unwind_protect_cleanup
159 %! warning (wstate, "Octave:divide-by-zero"); 159 %! warning (wstate, "Octave:divide-by-zero");
160 %! end_unwind_protect 160 %! end_unwind_protect
161 161
162 %% Test input validation 162 ## Test input validation
163 %!error kurtosis () 163 %!error kurtosis ()
164 %!error kurtosis (1, 2, 3) 164 %!error kurtosis (1, 2, 3)
165 %!error <X must be a numeric vector or matrix> kurtosis (['A'; 'B']) 165 %!error <X must be a numeric vector or matrix> kurtosis (['A'; 'B'])
166 %!error <FLAG must be 0 or 1> kurtosis (1, 2) 166 %!error <FLAG must be 0 or 1> kurtosis (1, 2)
167 %!error <FLAG must be 0 or 1> kurtosis (1, [1 0]) 167 %!error <FLAG must be 0 or 1> kurtosis (1, [1 0])