Mercurial > hg > octave-nkf
changeset 16180:3e6d15a2a50b
Update stemleaf to provide new features and minor fix to printd
author | Michael Godfrey <michaeldgodfrey@gmail.com> |
---|---|
date | Sat, 02 Mar 2013 18:01:47 -0500 |
parents | 025393bef399 |
children | 0f0e970723ec |
files | scripts/plot/printd.m scripts/plot/stemleaf.m |
diffstat | 2 files changed, 504 insertions(+), 206 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/plot/printd.m +++ b/scripts/plot/printd.m @@ -20,9 +20,11 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} printd (@var{obj}, @var{filename}) +## @deftypefnx {Function File} {@var{out_file} =} printd (@dots{}) ## ## Convert any object acceptable to @code{disp} into the format -## selected by the suffix of @var{filename}. +## selected by the suffix of @var{filename}. If the return argument +## @var{out_file} is given, the name of the created file is returned. ## ## This function is intended to facilitate manipulation of the output ## of functions such as @code{stemleaf}. @@ -32,7 +34,7 @@ ## Author: Michael D. Godfrey <michaeldgodfrey@gmail.com> ## Description: Convert objects into other file formats. -function printd (obj, filename) +function pr_out = printd (obj, filename) ## Convert any object acceptable to disp() into various display formats. ## obj is the input object. ## filename is the output file (with required suffix). @@ -79,19 +81,31 @@ endswitch fclose (pf); delete (tempf); - printf ("%s file %s written\n", opt, filename); + pr_out = sprintf ("%s file %s written\n", opt, filename); endfunction %!demo -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 12, hi: 42\n";... -%! " 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; +%! r2 = char ( +%! "stem step: 10, data: unsorted.", +%! "Hinges: lo: 12, hi: 42" , +%! " 1 | 22118" , +%! " 2 | 28" , +%! " 3 | 98" , +%! " 4 | 244" , +%! " 5 | 2" ); %! printd (r2, "test_p.txt"); %! system ("cat test_p.txt"); %! delete ("test_p.txt"); %!test -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 12, hi: 42\n";... -%! " 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; +%! r2 = char ( +%! "stem step: 10, data: unsorted.", +%! "Hinges: lo: 12, hi: 42" , +%! " 1 | 22118" , +%! " 2 | 28" , +%! " 3 | 98" , +%! " 4 | 244" , +%! " 5 | 2" ); %! printd (r2, "test_p.txt"); %! r4 = fileread ("test_p.txt"); %! delete ("test_p.txt");
--- a/scripts/plot/stemleaf.m +++ b/scripts/plot/stemleaf.m @@ -20,48 +20,81 @@ ## -*- texinfo -*- -## @deftypefn {Function File} {} stemleaf (@var{x}) -## @deftypefnx {Function File} {@var{plot} =} stemleaf (@var{x}, @var{opt}) -## +## @deftypefn {Function File} {} stemleaf (@var{x}, @var{caption}) +## @deftypefnx {Function File} {} stemleaf (@var{x}, @var{caption}, @var{stem_sz}) +## @deftypefnx {Function File} {@var{plotstr} =} stemleaf (@dots{}) ## Compute and display a stem and leaf plot of the vector @var{x}. ## -## The @var{x} vector is converted to integer by @var{x} = @code{fix} (@var{x}). -## If an output argument is provided, the plot is returned as -## an array of strings. The first element is the heading -## followed by an element for each stem. -## The default stem step is 10. -## The @var{x} vector should be integers. It will be treated so that -## the last digit is the leaf value and the other digits are -## the stems. -## The leaf digits are not sorted. If sorted leaf values -## are wanted, use @code{sort} (@var{x}) before calling @code{stemleaf} (@var{x}). -## The stem and leaf plot is described in: Ch. 3, -## Exploratory Data Analysis by J. W. Tukey, Addison-Wesley, 1977. +## The input @var{x} should be a vector of integers. Any non-integer values +## will be converted to integer by @code{@var{x} = fix (@var{x})}. By default +## each element of @var{x} will be plotted with the last digit of the element +## as a leaf value and the remaining digits as the stem. For example, 123 +## will be plotted with the stem @samp{12} and the leaf @samp{3}. The second +## argument, @var{caption}, should be a char array which provides a description +## of the data. It is included as a heading for the output. +## +## The optional input @var{stem_sz} sets the width of each stem. +## The stem width is determined by @code{10^(@var{stem_sz} + 1)}. +## The default stem width is 10. +## +## The output of stemleaf is composed of two parts: a "Fenced Letter Display," +## followed by the stem-and-leaf plot itself. The Fenced Letter Display is +## described in @cite{Exploratory Data Analysis}. Briefly, the entries +## are as shown: +## @example +## @group +## +## Fenced Letter Display +## #% nx|___________________ nx = numel (x) +## M% mi| md | mi median index, md median +## H% hi|hl hu| hs hi lower hinge index, hl,hu hinges, hs h_spread +## 1 |x(1) x(nx)| x(1), x(nx) first and last data value +## _______ +## ______|step |_______ step 1.5*h_spread +## f|ifl ifh| inner fence, lower and higher +## |nfl nfh| # data points within fences +## F|ofl ofh| outer fence, lower and higher +## |nFl nFh| # data points outside outer fences +## @end group +## @end example +## +## The stem-and-leaf plot shows on each line the stem value followed by the +## string made up of the leaf digits. If the @var{stem_sz} is not 1 the +## successive leaf values are separated by ",". +## +## With no return argument, the plot is immediately displayed. If an output +## argument is provided, the plot is returned as an array of strings. +## +## The leaf digits are not sorted. If sorted leaf values are desired, use +## @code{@var{xs} = sort (@var{x})} before calling @code{stemleaf (@var{xs})}. +## +## The stem and leaf plot and associated displays are described in: +## Ch. 3, @cite{Exploratory Data Analysis} by J. W. Tukey, Addison-Wesley, 1977. ## @seealso{hist, printd} ## @end deftypefn ## Author: Michael D. Godfrey <michaeldgodfrey@gmail.com> ## Description: Compute stem and leaf plot -function varargout = stemleaf (x, stem_unit) - ## Compute and display a stem and leaf plot of the vector x. The x - ## vector is converted to integer by x = fix(x). If an output argument +function plotstr = stemleaf (x, caption, stem_sz) + ## Compute and display a stem and leaf plot of the vector x. The x + ## vector is converted to integer by x = fix(x). If an output argument ## is provided, the plot is returned as an array of strings. The ## first element is the heading followed by an element for each stem. ## - ## The default stem step is 10. If stem_unit is provided the stem - ## step is set to: 10^(stem_unit+1) The x vector should be integers. + ## The default stem step is 10. If stem_sz is provided the stem + ## step is set to: 10^(stem_sz+1). The x vector should be integers. ## It will be treated so that the last digit is the leaf value and the ## other digits are the stems. ## ## When we first implemented stem and leaf plots in the early 1960's ## there was some discussion about sorting vs. leaving the leaf - ## entries in the original order in the data. We decided in favor or - ## sorting the leaves for most purposes. This is the choice + ## entries in the original order in the data. We decided in favor of + ## sorting the leaves for most purposes. This is the choice ## implemented in the SNAP/IEDA system that was written at that time. ## - ## SNAP/IEDA and particularly its stem and leaf plotting were further - ## developed by Hale Trotter, David Hoagland (at Princeton and MIT) + ## SNAP/IEDA, and particularly its stem and leaf plotting, were further + ## developed by Hale Trotter, David Hoagland (at Princeton and MIT), ## and others. ## ## Tukey, in EDA, generally uses unsorted leaves. In addition, he @@ -78,7 +111,7 @@ ## facilitates annotation. ## ## Note that the code has some added complexity due to the need to - ## distinguish both + and - 0 stems. The +- stem values are essential + ## distinguish both + and - 0 stems. The +- stem values are essential ## for all plots which span 0. After dealing with +-0 stems, the added ## complexity of putting +- data values in the correct stem is minor, ## but the sign of 0 leaves must be checked. And, the cases where the @@ -87,232 +120,483 @@ ## The fact that IEEE floating point defines +- 0 helps make this ## easier. ## - ## ## Michael D. Godfrey January 2013 ## More could be implemented for better data scaling. And, of course, ## other options for the kinds of plots described by Tukey could be - ## provided. This may best be left to users. + ## provided. This may best be left to users. + + if (nargin < 2 || nargin > 3) + print_usage (); + endif - if (nargin >= 2) - stem_step = 10^(stem_unit+1); - else - stem_step = 10; + if (! isvector (x)) + error ("stemleaf: X must be a vector"); endif - if (any (x == int32 (x)) == 0) - printf ('Input vector truncated to integer values.\n') - x = fix (x); + + if (! ischar (caption)) + error ("stemleaf: CAPTION must be a character array"); endif - ## Avoid use of int32 due to: + if (isinteger (x)) + ## Avoid use of integers because rounding rules do not use fix(): + ## Example: floor (int32 (-44)/10) == -4, floor (int32 (-46)/10) = -5 !!! + x = single (x); + elseif (isfloat (x)) + xint = fix (x); + if (any (x != xint)) + warning ("stemleaf: X truncated to integer values"); + x = xint; + endif + else + error ("stemleaf: X must be a numeric vector"); + endif - ## floor (int32 (-44)/10) == -4 and floor (int32 (-46)/10) = -5 !!! - ## x = sort (fix (x)); % User can decide about sorting x. - ## x = fix (x); - ## %Adjust scale if too small. - ## while any(abs((fix(x) - x)) >= abs(x/100)) - ## x =10*x; - ## endwhile + if (nargin == 2) + stem_sz = 0; + stem_step = 10; + else + if (isscalar (stem_sz) && stem_sz >= 0 && isreal (stem_sz)) + stem_sz = fix (stem_sz); + stem_step = 10^(stem_sz+1); + else + error ("stemleaf: STEM_SZ must be a real integer >= 0"); + endif + endif ## Note that IEEE 754 states that -+ 0 should compare equal. This has ## led to C sort (and therefore Octave) treating them as equal. Thus, - ## sort([ -1 0 -0 1]) yields: -1 0 -0 1. and, sort([-1 -0 0 1]) - ## yields: -1 -0 0 1. This means that stem-and-leaf plotting cannot + ## sort([-1 0 -0 1]) yields [-1 0 -0 1], and sort([-1 -0 0 1]) + ## yields: [-1 -0 0 1]. This means that stem-and-leaf plotting cannot ## rely on sort to order the data as needed for display. + ## This also applies to min()/max() so these routines can't be relied + ## upon if the max or min is -+ 0. + + ## Compute hinges and fences based on ref: EDA pgs. 33 and 44. + ## Note that these outlier estimates are meant to be "distribution free". - if (all((sort(x) == x)) == 1) - hsort = 'sorted.'; - else - hsort = 'unsorted.'; - endif - nx = max (size (x)); + nx = numel (x); + xs = sort (x); # Note that sort preserves -0 + mdidx = fix ((nx + 1)/2); # median index + hlidx = fix ((mdidx + 1)/2); # lower hinge index + huidx = fix (nx + 1 - hlidx); # upper hinge index + md = xs(mdidx); # median + hl = xs(hlidx); # lower hinge + hu = xs(huidx); # upper hinge + h_spread = hu - hl; # h_spread: difference between hinges + step = 1.5*h_spread; # step: 1.5 * h_spread + i_fence_l = hl - step; # inner fences: outside hinges + step + o_fence_l = hl - 2*step; # outer fences: outside hinges + 2*step + i_fence_h = hu + step; + o_fence_h = hu + 2*step; + n_out_l = sum (x<i_fence_l) - sum (x<o_fence_l); + n_out_h = sum (x>i_fence_h) - sum (x>o_fence_h); + n_far_l = sum (x<o_fence_l); + n_far_h = sum (x>o_fence_h); + + # display table similar to that on pg. 33 + plot_out = sprintf(" Data: %s", caption); + plot_out = [plot_out; sprintf(" ")]; + plot_out = [plot_out; sprintf(" Fenced Letter Display")]; + plot_out = [plot_out; sprintf(" ")]; + plot_out = [plot_out; sprintf(" #%3d|___________________", nx)]; + plot_out = [plot_out; sprintf(" M%3d| %5d |", mdidx, md)]; + plot_out = [plot_out; sprintf(" H%3d|%5d %5d| %d", hlidx, hl, hu, h_spread)]; + plot_out = [plot_out; sprintf(" 1 |%5d %5d|", xs(1), xs(nx))]; + plot_out = [plot_out; sprintf(" _______")]; + plot_out = [plot_out; sprintf(" ______|%5d|_______",step)]; + plot_out = [plot_out; sprintf(" f|%5d %5d|", i_fence_l, i_fence_h)]; + plot_out = [plot_out; sprintf(" |%5d %5d| out", n_out_l, n_out_h)]; + plot_out = [plot_out; sprintf(" F|%5d %5g|", o_fence_l, o_fence_h)]; + plot_out = [plot_out; sprintf(" |%5d %5d| far",n_far_l,n_far_h)]; + plot_out = [plot_out; " "]; + ## Determine stem values - if (min(x) < 0) - if (signbit(max(x)) == 0) # max is positive - stems = [fix(min(x)/stem_step)-1 : -1 -0]; - stems = [stems 0 : fix(max(x)/stem_step)+1 ]; - else - if (max(x) < 0) - stems = [(fix(min(x)/stem_step)-1) : fix(max(x)/stem_step)]; + min_x = min (x); + max_x = max (x); + if (min_x > 0) # all stems > 0 + stems = [fix(min(x)/stem_step) : (fix(max(x)/stem_step)+1)]; + elseif (max_x < 0) # all stems < 0 + stems = [(fix(min_x/stem_step)-1) : fix(max_x/stem_step)]; + if (stems(end) == 0) + stems(end) = -0; # Fix signbit on 0 lost by ':' operator + endif + elseif (min_x < 0 && max_x > 0) # range crosses 0 + stems = [(fix(min_x/stem_step)-1) : -1 , -0]; + stems = [stems, 0 : fix(max_x/stem_step)+1 ]; + else # one endpoint is a zero which may be +0 or -0 + if (min_x == 0) + if (any (x == 0 & signbit (x))) + min_x = -0; else - stems = [(fix(min(x)/stem_step)-1) : -1 -0]; - stems = [stems 0 : fix(max(x)/stem_step)]; + min_x = +0; endif endif - else # All stems are > 0 - stems = [fix(min(x)/stem_step) : fix(max(x)/stem_step) + 1]; - endif - ##stems - ##x - nstems = max(size(stems)); - ## compute hinges at +- 1.5 * quartiles - ## this requires sorted data! - xs = sort (x); # Note that sort preserves -0 - threeh = 1.5; - two = 2.0; - j = idivide(nx, 4, "fix") + 1; # Use F95 truncation. - k = nx - j + 1; - hl = xs (j); - hu = xs (k); - if ( (nx + 1) == (4 * j) ) - hl = (xs (j + 1) + hl) / two; - hu = (xs (k - 1) + hu) / two; + if (max_x == 0) + if (any (x == 0 & ! signbit (x))) + max_x = +0; + else + max_x = -0; + endif + endif + stems = []; + if (signbit (min_x)) + stems = [(fix(min_x/stem_step)-1) : -1 , -0]; + endif + if (! signbit (max_x)) + stems = [stems, 0 : fix(max_x/stem_step)+1 ]; + endif endif - ## :::::::: determine h-spread (dh) and fences :::::::: - dh = hu - hl; - fu = hu + threeh * dh; - fl = hl - threeh * dh; - - ## :::::::: find value adjacent to lower fence :::::::: - for i = 1:j - if ( xs (i) >= fl ) - continue; - endif - endfor - ilow = i; - xlo = xs (ilow); + if (issorted (x)) + hsort = "sorted."; + else + hsort = "unsorted."; + endif - ## :::::::: find value adjacent to upper fence :::::::: - for i = 1:j - if ( xs (nx -i + 1) <= fu ) - continue; - endif - endfor - - ihi = nx - i + 1; - xhi = xs (ihi); - - ## Heading for output: - plot_out = ""; - plot_out = [plot_out sprintf("stem step: %i, data: %s\nHinges: lo: %g, hi: %g\n", - stem_step, hsort, xlo, xhi)]; - - ## This may appear to be a good place to use vectorization using the - ## stem and data arrays but the necessary special case treatment of 0 - ## and -0 seems to result in little reduction of complexity, and since - ## this algorithm is for small data vectors only there would be - ## practically no performance improvement. - + ## Vectorized version provided by Rik Webring (Rik@ortave.org) ## Determine leaves for each stem: - for kx = 2:nstems - line_out = ""; - steml = ""; - ## Build a string of leaf digits for stem(kx) if stem(kx) <= 0, or - ## stem(kx-1) if stem(kx) > 0 + prev_line = "none"; + new_line = 1; + for kx = 2: numel (stems) - ## stems -+ 0 have to be handled as special cases. - for xi = 1:nx - if(signbit(stems(kx)) != 0) - t1 = ((x(xi) <= stems(kx)*10) && (x(xi) > (stems(kx-1)*10))); - else - t1 = ((x(xi) < stems(kx)*10) && (x(xi) >= (stems(kx-1)*10))); - endif - ## Special tests for stem -+ 0 - if ((stems(kx) == 0) && signbit(stems(kx)) && (x(xi) == 0)) && !signbit(x(xi)) - t1 = 0; - endif - if ((stems(kx-1) == 0) && !signbit(stems(kx-1)) && (x(xi) == 0)) && signbit(x(xi)) - t1 = 0; - endif - ## Create line as a string - if t1 - if (stems(kx) <= 0) - xz = abs (x(xi) - stems(kx)*10); - else - xz = abs (x(xi) - stems(kx-1)*10); - endif - if ((stems(kx) == 0) && signbit(stems(kx))) - steml = [steml sprintf("%d", abs(x(xi) - stems(kx)*10))]; - else - steml = [steml sprintf("%d", xz)]; - endif - endif % t1 - endfor % xi = 1:nx - - ## Set correct -0 - if ((stems(kx) == 0) && signbit(stems(kx))) - line_out = [line_out sprintf(" -0 | %s", steml)]; % -0 stem. + stem_sign = signbit (stems(kx)); + if (stems(kx) <= 0) + idx = ((x <= stems(kx)*stem_step) & (x > (stems(kx-1)*stem_step)) + & (signbit (x) == stem_sign)); + xlf = abs (x(idx) - stems(kx)*stem_step); else - if( stems(kx) < 0) - line_out = [line_out sprintf("%4d | %s", stems(kx), steml)]; - else - if stems(kx) > 0 - line_out = [line_out sprintf("%4d | %s", stems(kx-1), steml)]; + idx = ((x < stems(kx)*stem_step) & (x >= (stems(kx-1)*stem_step)) + & (signbit (x) == stem_sign)); + xlf = abs (x(idx) - stems(kx-1)*stem_step); + endif + ## Convert leaves to a string + if (stem_sz == 0) + lf_str = sprintf ("%d", xlf); + else + lf_str = ""; + if (numel(xlf) > 0) + lf_str = sprintf ("%d", xlf(1,1)); + if (numel (xlf) > 1) + lf_str = [lf_str sprintf(",%d", xlf(1,2:numel(xlf)))]; endif endif endif - plot_out = [plot_out; line_out]; - endfor % kx = 2:nstems + + ## Set correct -0 + if (stems(kx) == 0 && signbit (stems(kx))) + line = sprintf (" -0 | %s", lf_str); # -0 stem. + elseif (stems(kx) < 0) + line = sprintf ("%4d | %s", stems(kx), lf_str); + elseif (stems(kx) > 0) + line = sprintf ("%4d | %s", stems(kx-1), lf_str); + else + line = ""; + endif + + if ((!strcmp (lf_str, "")) || (stems(kx) == 0)|| stems(kx-1) == 0) + plot_out = [plot_out; line]; + new_line = 1; + else + if (new_line == 1) + plot_out = [plot_out; " :"]; # just print one : if no leaves + new_line = 0; + endif + endif + + endfor # kx = 2: numel (stems) if (nargout == 0) - rows = size (plot_out)(1); - cols = size (plot_out)(2); - for k = 1:rows - printf("%s\n", plot_out(k,1:cols)); - endfor + disp (plot_out); else - varargout{1} = plot_out; + plotstr = plot_out; endif endfunction + %!demo %! ## Unsorted plot: %! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44]; -%! stemleaf (x, 0); +%! stemleaf (x, "Unsorted plot"); %!demo %! ## Sorted leaves: %! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44]; -%! y = sort(x); -%! stemleaf (y, 0); +%! y = sort (x); +%! stemleaf (y, "Sorted leaves"); %!demo -%! ## More data (sorted) -%! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44 37 113 124 37 48 127 36 29 31 125 139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 23 105 63 27 44 105 99 41 128 121 116 125 32 61 37 127 29 113 121 58 114 126 53 114 96 25 109 7 31 141 46 -13 71 43 117 116 27 7 68 40 31 115 124 42 128 52 71 118 117 38 27 106 33 117 116 111 40 119 47 105 57 122 109 124 115 43 120 43 27 27 18 28 48 125 107 114 34 133 45 120 30 127 31 116 146 21 23 30 10 20 21 30 0 100 110 1 20 0 ]; -%! y = sort(x); -%! stemleaf (y, 0); +%! ## Sorted leaves (large dataset): +%! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44 37 113 124 37 48 127 \ +%! 36 29 31 125 139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 \ +%! 23 105 63 27 44 105 99 41 128 121 116 125 32 61 37 127 29 113 121 58 \ +%! 114 126 53 114 96 25 109 7 31 141 46 -13 71 43 117 116 27 7 68 40 31 \ +%! 115 124 42 128 52 71 118 117 38 27 106 33 117 116 111 40 119 47 105 57\ +%! 122 109 124 115 43 120 43 27 27 18 28 48 125 107 114 34 133 45 120 30 \ +%! 127 31 116 146 21 23 30 10 20 21 30 0 100 110 1 20 0]; +%! y = sort (x); +%! stemleaf (y, "Sorted leaves (large dataset)"); + +%!demo +%! ## Gaussian leaves: +%! x = fix (30 * randn (300,1)); +%! stemleaf (x); %!test %! ## test minus to plus -%! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44 37 113 124 37 48 127 36 29 31 125 139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 23 105 63 27 44 105 99 41 128 121 116 125 32 61 37 127 29 113 121 58 114 126 53 114 96 25 109 7 31 141 46 -13 71 43 117 116 27 7 68 40 31 115 124 42 128 52 71 118 117 38 27 106 33 117 116 111 40 119 47 105 57 122 109 124 115 43 120 43 27 27 18 28 48 125 107 114 34 133 45 120 30 127 31 116 146 21 23 30 10 20 21 30 0 100 110 1 20 0 ]; -%! x = sort(x); -%! r2 = ["stem step: 10, data: sorted.\nHinges: lo: 30, hi: 116\n";... -%! " -2 | 82";" -1 | 3";" -0 | 2";" 0 | 00177";... -%! " 1 | 00112288";" 2 | 001133577777899";... -%! " 3 | 000111123456777889";" 4 | 00122233344456788";... -%! " 5 | 223788";" 6 | 138";" 7 | 11";" 8 | ";... -%! " 9 | 69";" 10 | 04555567999";" 11 | 0133344455566667777899";... -%! " 12 | 0011223444555677788";" 13 | 1239";" 14 | 16"]; -%! rx = stemleaf (x, 0); -%! assert(r2, rx); +%! x = [-22 12 -28 52 39 -2 12 10 11 11 42 38 44 18 44 37 113 124 37 48 127 \ +%! 36 29 31 125 139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 \ +%! 23 105 63 27 44 105 99 41 128 121 116 125 32 61 37 127 29 113 121 58 \ +%! 114 126 53 114 96 25 109 7 31 141 46 -13 71 43 117 116 27 7 68 40 31 \ +%! 115 124 42 128 52 71 118 117 38 27 106 33 117 116 111 40 119 47 105 57\ +%! 122 109 124 115 43 120 43 27 27 18 28 48 125 107 114 34 133 45 120 30 \ +%! 127 31 116 146 21 23 30 10 20 21 30 0 100 110 1 20 0]; +%! x = sort (x); +%! rexp = char ( +%! " Data: test minus to plus" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " #138|___________________" , +%! " M 69| 52 |" , +%! " H 35| 30 116| 86" , +%! " 1 | -28 146|" , +%! " _______" , +%! " ______| 129|_______" , +%! " f| -99 245|" , +%! " | 0 0| out" , +%! " F| -228 374|" , +%! " | 0 0| far" , +%! " " , +%! " -2 | 82" , +%! " -1 | 3" , +%! " -0 | 2" , +%! " 0 | 00177" , +%! " 1 | 00112288" , +%! " 2 | 001133577777899" , +%! " 3 | 000111123456777889" , +%! " 4 | 00122233344456788" , +%! " 5 | 223788" , +%! " 6 | 138" , +%! " 7 | 11" , +%! " : " , +%! " 9 | 69" , +%! " 10 | 04555567999" , +%! " 11 | 0133344455566667777899", +%! " 12 | 0011223444555677788" , +%! " 13 | 1239" , +%! " 14 | 16" ); +%! r = stemleaf (x, "test minus to plus", 0); +%! assert (r, rexp); + %!test %! ## positive values above 0 -%! x = [22 12 28 52 39 12 11 11 42 38 44 18 44 ]; -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 12, hi: 42\n";... -%! " 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; -%! rx = stemleaf (x, 0); -%! assert(r2, rx); +%! x = [5 22 12 28 52 39 12 11 11 42 38 44 18 44]; +%! rexp = char ( +%! " Data: positive values above 0" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 14|___________________" , +%! " M 7| 22 |" , +%! " H 4| 12 42| 30" , +%! " 1 | 5 52|" , +%! " _______" , +%! " ______| 45|_______" , +%! " f| -33 87|" , +%! " | 0 0| out" , +%! " F| -78 132|" , +%! " | 0 0| far" , +%! " " , +%! " 0 | 5" , +%! " 1 | 22118" , +%! " 2 | 28" , +%! " 3 | 98" , +%! " 4 | 244" , +%! " 5 | 2" ); +%! r = stemleaf (x, "positive values above 0"); +%! assert (r, rexp); + %!test %! ## negative values below 0 -%! x = [22 12 28 52 39 12 11 11 42 38 44 18 44]; +%! x = [5 22 12 28 52 39 12 11 11 42 38 44 18 44]; %! x = -x; -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: -42, hi: -12\n";... -%! " -5 | 2";" -4 | 244";" -3 | 98";" -2 | 28";" -1 | 22118"]; -%! rx = stemleaf (x, 0); -%! assert(r2, rx); +%! rexp = char ( +%! " Data: negative values below 0" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 14|___________________" , +%! " M 7| -28 |" , +%! " H 4| -42 -12| 30" , +%! " 1 | -52 -5|" , +%! " _______" , +%! " ______| 45|_______" , +%! " f| -87 33|" , +%! " | 0 0| out" , +%! " F| -132 78|" , +%! " | 0 0| far" , +%! " " , +%! " -5 | 2" , +%! " -4 | 244" , +%! " -3 | 98" , +%! " -2 | 28" , +%! " -1 | 22118" , +%! " -0 | 5" ); +%! r = stemleaf (x, "negative values below 0"); +%! assert (r, rexp); + %!test %! ## positive values from 0 -%! x = [22 12 28 52 39 2 12 0 11 11 42 38 44 18 44]; -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 11, hi: 42\n";... -%! " 0 | 20";" 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; -%! rx = stemleaf (x, 0); -%! assert(r2, rx); +%! x = [22 12 28 52 39 2 12 0 11 11 42 38 44 18 44]; +%! rexp = char ( +%! " Data: positive values from 0" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 15|___________________" , +%! " M 8| 22 |" , +%! " H 4| 11 42| 31" , +%! " 1 | 0 52|" , +%! " _______" , +%! " ______| 46|_______" , +%! " f| -35 88|" , +%! " | 0 0| out" , +%! " F| -82 135|" , +%! " | 0 0| far" , +%! " " , +%! " 0 | 20" , +%! " 1 | 22118" , +%! " 2 | 28" , +%! " 3 | 98" , +%! " 4 | 244" , +%! " 5 | 2" ); +%! r = stemleaf (x, "positive values from 0"); +%! assert (r, rexp); + %!test %! ## negative values from 0 -%! x = [22 12 28 52 39 2 12 0 11 11 42 38 44 18 44]; +%! x = [22 12 28 52 39 2 12 0 11 11 42 38 44 18 44]; %! x = -x; -%! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: -42, hi: -11\n";... -%! " -5 | 2";" -4 | 244";" -3 | 98";" -2 | 28";" -1 | 22118";" -0 | 20"]; -%! rx = stemleaf (x, 0); -%! assert(r2, rx); +%! rexp = char ( +%! " Data: negative values from 0" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 15|___________________" , +%! " M 8| -22 |" , +%! " H 4| -42 -11| 31" , +%! " 1 | -52 0|" , +%! " _______" , +%! " ______| 46|_______" , +%! " f| -88 35|" , +%! " | 0 0| out" , +%! " F| -135 82|" , +%! " | 0 0| far" , +%! " " , +%! " -5 | 2" , +%! " -4 | 244" , +%! " -3 | 98" , +%! " -2 | 28" , +%! " -1 | 22118" , +%! " -0 | 20" ); +%! r = stemleaf (x, "negative values from 0"); +%! assert (r, rexp); + +%!test +%! ## both +0 and -0 present +%! x = [-9 -7 -0 0 -0]; +%! rexp = char ( +%! " Data: both +0 and -0 present" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 5|___________________" , +%! " M 3| 0 |" , +%! " H 2| -7 0| 7" , +%! " 1 | -9 0|" , +%! " _______" , +%! " ______| 10|_______" , +%! " f| -17 10|" , +%! " | 0 0| out" , +%! " F| -28 21|" , +%! " | 0 0| far" , +%! " " , +%! " -0 | 9700" , +%! " 0 | 0" ); +%! r = stemleaf (x, "both +0 and -0 present"); +%! assert (r, rexp); +%!test +%! ## both <= 0 and -0 present +%! x = [-9 -7 0 -0]; +%! rexp = char ( +%! " Data: both <= 0 and -0 present" , +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 4|___________________" , +%! " M 2| -7 |" , +%! " H 1| -9 0| 9" , +%! " 1 | -9 0|" , +%! " _______" , +%! " ______| 13|_______" , +%! " f| -22 13|" , +%! " | 0 0| out" , +%! " F| -36 27|" , +%! " | 0 0| far" , + +%! " " , +%! " -0 | 970" , +%! " 0 | 0" ); +%! r = stemleaf (x, "both <= 0 and -0 present"); +%! assert (r, rexp); + +%!test +%! ## Example from EDA: Chevrolet Prices pg. 30 +%! x = [150 250 688 695 795 795 895 895 895 1099 1166 1333 1499 1693 1699 1775 1995]; +%! rexp = char ( +%! " Data: Chevrolet Prices EDA pg.30", +%! " " , +%! " Fenced Letter Display" , +%! " " , +%! " # 17|___________________" , +%! " M 9| 895 |" , +%! " H 5| 795 1499| 704" , +%! " 1 | 150 1995|" , +%! " _______" , +%! " ______| 1056|_______" , +%! " f| -261 2555|" , +%! " | 0 0| out" , +%! " F|-1317 3611|" , +%! " | 0 0| far" , +%! " " , +%! " 1 | 50" , +%! " 2 | 50" , +%! " :" , +%! " 6 | 88,95" , +%! " 7 | 95,95" , +%! " 8 | 95,95,95" , +%! " :" , +%! " 10 | 99" , +%! " 11 | 66" , +%! " :" , +%! " 13 | 33" , +%! " 14 | 99" , +%! " :" , +%! " 16 | 93,99" , +%! " 17 | 75" , +%! " :" , +%! " 19 | 95" ); + +%! r = stemleaf(x, "Chevrolet Prices EDA pg.30", 1); +%! assert (r, rexp); + +## Test input validation +%!error stemleaf () +%!error stemleaf (1, 2, 3, 4) +%!error <X must be a vector> stemleaf (ones (2,2), "") +%!warning <X truncated to integer values> tmp = stemleaf ([0 0.5 1],""); +%!error <X must be a numeric vector> stemleaf ("Hello World", "data") +%!error <STEM_SZ must be a real integer> stemleaf (1, "", ones (2,2)) +%!error <STEM_SZ must be a real integer> stemleaf (1, "", -1) +%!error <STEM_SZ must be a real integer> stemleaf (1, "", 1+i)