Mercurial > octave
view scripts/statistics/spearman.m @ 33571:742d8fc77688 default tip @
Support setting breakpoints in get and set methods of classdef properties (bug #65610).
* cdef-class.cc (cdef_class::cdef_class_rep::get_method): Also check for any
`get` or `set` methods of `classdef` properties.
* bp-table.cc (user_code_provider::operator ()): Support getting (closest) user
code to `get` or `set` methods of `classdef` classes.
(user_code_provider::populate_function_cache): Add `get` and `set` methods to
function cache for `classdef` classes.
* pt-eval.cc (tree_evaluator::get_user_code): Support getting user code for
`get` or `set` methods of `classdef` properties.
* test/classdef-debug/classdef_breakpoints2.m: Add handle class with get and
set methods for new self tests.
* test/classdef-debug/test-classdef-breakpoints.tst: Add new tests for adding
and clearing breakpoints in `set` and `get` methods of `classdef` properties by
line number or function name. Make sure breakpoints are deleted in existing
tests also on test failures. Fix syntax error in 69eb4c27d8c8.
* test/classdef-debug/module.mk: Add new file to build system.
* etc/NEWS.10.md: Add note about new feature.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sat, 20 Apr 2024 13:13:50 +0200 |
parents | 2e484f9f1f18 |
children |
line wrap: on
line source
######################################################################## ## ## Copyright (C) 1995-2024 The Octave Project Developers ## ## See the file COPYRIGHT.md in the top-level directory of this ## distribution or <https://octave.org/copyright/>. ## ## This file is part of Octave. ## ## Octave is free software: you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation, either version 3 of the License, or ## (at your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <https://www.gnu.org/licenses/>. ## ######################################################################## ## -*- texinfo -*- ## @deftypefn {} {@var{rho} =} spearman (@var{x}) ## @deftypefnx {} {@var{rho} =} spearman (@var{x}, @var{y}) ## @cindex Spearman's Rho ## Compute Spearman's rank correlation coefficient ## @tex ## $\rho$. ## @end tex ## @ifnottex ## @var{rho}. ## @end ifnottex ## ## For two data vectors @var{x} and @var{y}, Spearman's ## @tex ## $\rho$ ## @end tex ## @ifnottex ## @var{rho} ## @end ifnottex ## is the correlation coefficient of the ranks of @var{x} and @var{y}. ## ## If @var{x} and @var{y} are drawn from independent distributions, ## @tex ## $\rho$ ## @end tex ## @ifnottex ## @var{rho} ## @end ifnottex ## has zero mean and variance ## @tex ## $1 / (N - 1)$, ## @end tex ## @ifnottex ## @code{1 / (N - 1)}, ## @end ifnottex ## where @math{N} is the length of the @var{x} and @var{y} vectors, and is ## asymptotically normally distributed. ## ## @code{spearman (@var{x})} is equivalent to ## @code{spearman (@var{x}, @var{x})}. ## @seealso{ranks, kendall} ## @end deftypefn function rho = spearman (x, y = []) if (nargin < 1) print_usage (); endif if ( ! (isnumeric (x) || islogical (x)) || ! (isnumeric (y) || islogical (y))) error ("spearman: X and Y must be numeric matrices or vectors"); endif if (ndims (x) != 2 || ndims (y) != 2) error ("spearman: X and Y must be 2-D matrices or vectors"); endif if (isrow (x)) x = x.'; endif if (nargin == 1) rho = corr (ranks (x)); else if (isrow (y)) y = y.'; endif if (rows (x) != rows (y)) error ("spearman: X and Y must have the same number of observations"); endif rho = corr (ranks (x), ranks (y)); endif ## Restore class cleared by ranks if (isa (x, "single") || isa (y, "single")) rho = single (rho); endif endfunction %!test %! x = 1:10; %! y = exp (x); %! assert (spearman (x,y), 1, 5*eps); %! assert (spearman (x,-y), -1, 5*eps); %!assert (spearman ([1 2 3], [-1 1 -2]), -0.5, 5*eps) %!assert (spearman (1), NaN) %!assert (spearman (single (1)), single (NaN)) ## Test input validation %!error <Invalid call> spearman () %!error spearman (['A'; 'B']) %!error spearman (ones (1,2), {1, 2}) %!error spearman (ones (2,2,2)) %!error spearman (ones (2,2), ones (2,2,2)) %!error spearman (ones (2,2), ones (3,2))