Mercurial > octave-antonio
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]) |