Merge pull request #42 from SASPAC/dev

The BasePlus package [ver. 2.0.0]

README.md

@@ -53,12 +53,10 @@ libname NEW "%workPath()/new";
 %put %monthShift(2023,1,-5);
 
 %put #%expandDataSetsList(lib=sashelp,datasets=_all_)#;
-
-%workLib(ABC)
 ```
 and more.
 
-SHA256 digest for the latest version of `BasePlus`: F*6394CE27FBCF48D475F682CBCF8CA8B4FDD6D40D2672EF571F4A561BDDF274A6
+SHA256 digest for the latest version of `BasePlus`: F*0730DD793516E5C193842126A7EC9D339ADADD19F0F40B071F938CABDE4E66AD
 
 [**Documentation for BasePlus**](./baseplus.md "Documentation for BasePlus")
 

baseplus.md

@@ -9,22 +9,22 @@
 ### Version information:
   
 - Package: BasePlus
-- Version: 3.1.1
+- Version: 2.0.0
-- Generated: 2025-11-05T15:10:31
+- Generated: 2024-07-23T21:51:33
-- Author(s): Bartosz Jablonski (yabwon@gmail.com), contributors are Quentin McMullen (qmcmullen@gmail.com) and Ryo Nakaya (nakaya.ryou@gmail.com)
+- Author(s): Bartosz Jablonski (yabwon@gmail.com), Quentin McMullen (qmcmullen@gmail.com)
 - Maintainer(s): Bartosz Jablonski (yabwon@gmail.com)
 - License: MIT
-- File SHA256: `F*6394CE27FBCF48D475F682CBCF8CA8B4FDD6D40D2672EF571F4A561BDDF274A6` for this version
+- File SHA256: `F*0730DD793516E5C193842126A7EC9D339ADADD19F0F40B071F938CABDE4E66AD` for this version
-- Content SHA256: `C*3CA28DF8F3E6D6670D7FD44788D347452F24F4BCF18115873E7EBC742FE30CA4` for this version
+- Content SHA256: `C*0352F7BB04B99D620BEFD33FF1B1FF1835E6F8F21CC6A764D05EEE51E77E57E0` for this version
   
 ---
  
-# The `BasePlus` package, version: `3.1.1`;
+# The `BasePlus` package, version: `2.0.0`;
   
 ---
  
 
-# The BasePlus package [ver. 3.1.1] <a name="baseplus-package"></a> ###############################################
+# The BasePlus package [ver. 2.0.0] <a name="baseplus-package"></a> ###############################################
 
 The **BasePlus** package implements useful
 functions and functionalities I miss in the BASE SAS.
@@ -47,8 +47,7 @@ Kudos to all who inspired me to generate this package:
 *Quentin McMullen*,
 *Kurt Bremser*,
 *Leonid Batkhan*,
-*Louise Hadden*,
+*Louise Hadden*.
-*Ryo Nakaya*.
 
 ---
 
@@ -388,11 +387,6 @@ proc print data=b_x;
 run;
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
-**EXAMPLE 29** Create library ABC assigned to `<WORK>/ABC` directory:
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %workLib(abc)
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
 ---
   
 ---
@@ -409,7 +403,7 @@ localization (only if additional content was deployed during the installation pr
  
 --------------------------------------------------------------------
  
-*SAS package generated by SAS Package Framework, version `20251017`*
+*SAS package generated by SAS Package Framework, version `20240711`*
  
 --------------------------------------------------------------------
  
@@ -496,11 +490,10 @@ The `BasePlus` package consists of the following content:
 78. [`%translate()` macro ](#translate-macro-78 )
 79. [`%tranwrd()` macro ](#tranwrd-macro-79 )
 80. [`%unifyvarscasesize()` macro ](#unifyvarscasesize-macro-80 )
-81. [`%worklib()` macro ](#worklib-macro-81 )
+81. [`%workpath()` macro ](#workpath-macro-81 )
-82. [`%workpath()` macro ](#workpath-macro-82 )
   
  
-83. [License note](#license)
+82. [License note](#license)
   
 ---
  
@@ -845,7 +838,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
   <,longFormat=>
   <,fileExt=>
   <,maxDepth=>
-  <,backslashSens=>
 )
 ~~~~~~~~~~~~~~~~~~~~~~~
 
@@ -876,11 +868,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
 * `maxDepth=0`                - *Optional*, if not zero then indicates
                                 maximum depth of search in the root path.
 
-* `backslashSens=0`           - *Optional*, if not zero then it indicates 
-                                that backslash(`\`) symbol in files and dirs 
-                                names is detectable under Linux. Accepted 
-                                values: `0` and `1`. Ignored under Windows. 
-
 
 ### EXAMPLES AND USECASES: ####################################################
 
@@ -1002,12 +989,7 @@ The QgetVars() returns quoted value [by %superq()].
 
 See examples below for the details.
 
-When `mcArray=` is not used the `%getVars()` macro executes like 
+The `%getVars()` macro executes like a pure macro code.
-a pure macro code. When `mcArray=` is not null (creation of a
-macro variable array is requested) them a single semicolon is returned.
-
-When `validvarname=ANY` in set special care should be kept.
-See dedicated examples below.
 
 ### SYNTAX: ###################################################################
 
@@ -1021,7 +1003,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
  <,quote=>
  <,mcArray=> 
  <,ignoreCases>
- <,nlit=>
 )
 ~~~~~~~~~~~~~~~~~~~~~~~
 
@@ -1044,32 +1025,23 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 * `mcArray=`         - *Optional*, default value is blank.
                        1) When *null* - the macro behaves like a macro function 
-                          and ban be used in the `%put` or `%let=` statements.
+                          and returns a text string with variables list.
-                          The returned text is a string with variables list.
+                       2) When *not null* - behaviour of the macro is altered.
-                       2) When *not null* - behavior of the macro is altered.
                           In such case a macro array of selected variables, named 
                           with `mcArray` value as a prefix, is created.
                           Furthermore a macro named as `mcArray` value is generated.
                           (see the macroArray package for the details).
                           When `mcArray=` parameter is active the `getVars` macro 
-                          should not be called within the `%put` or `%let=` statements. 
+                          cannot be called within the `%put` statement. Execution like: 
-                          A single semicolon is produced as the macro result, hence
+                           `%put %getVars(..., mcArray=XXX);` will result with  
-                          execution like: `%put %getVars(..., mcArray=XXX) some text;` 
+                          an Explicit & Radical Refuse Of Run (aka ERROR).
-                          will result with an Explicit & Radical Refuse Of Run (aka ERROR).
 
 * `ignoreCases=`     - *Optional*, default value is 1.  
                         Indicates if search should be case insensitive.
 
-* `nlit=`            - *Optional*, default value is 0.
-                        Introduced to improve `validvarname=ANY` handling.
-                        Indicates if the `NLITERAL()` function should be 
-                        executed to cover spacial characters.
-
  
 ### EXAMPLES AND USECASES: ####################################################
 
-**When `validvarname=` option is _not_ `ANY`.** 
-
 **EXAMPLE 1.** A list of all variables from the 
                sashelp.class dataset:
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
@@ -1295,44 +1267,6 @@ run;
   %put %do_over(XYZ);
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
-**When the `validvarname=ANY` option is set.** 
-
-**EXAMPLE 12.** Get all variables and handle special characters.
-                Without `nlit=1` the code will fail.
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  options validvarname = any;
-  data varnameANY;
-    set sashelp.class(obs=3);
-
-    'A&B'n=42;
-    'space name'n=101;
-    '2025-08'n=234;
-    '2025%09'n=235;
-    "2025'10"n=236;
-    '2025"11'n=237;
-  run; 
-
-  %put %getVars(varnameANY, nlit=1);
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-**EXAMPLE 13.** Create macro variable array ABC for all variables.
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %getVars(varnameANY, mcArray=ABC, nlit=1);
-  %put %ABC(1) %ABC(6) %ABC(7) %ABC(11);
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-**EXAMPLE 14.** Get only variables with illegal characters in names.
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %let notV7compliant = %getVars(varnameANY, pattern=[^a-z0-9_], nlit=1);
-  %put &notV7compliant.;
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-
-**EXAMPLE 14.** Print variables starting with a digit.
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %put %getVars(varnameANY, pattern=^\d, nlit=1);
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
 ---
 
   
@@ -1995,11 +1929,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
 * `ignoreCases=`     - *Optional*, default value is 1.  
                         Indicates if search should be case insensitive.
 
-* `nlit=`            - *Optional*, default value is 0.
-                        Introduced to improve `validvarname=ANY` handling.
-                        Indicates if the `NLITERAL()` function should be 
-                        executed to cover spacial characters.
-
  
 ### EXAMPLES AND USECASES: ####################################################
 
@@ -2106,9 +2035,6 @@ plots of kernel density estimates, jitter data values, and box-and-whiskers plot
 
 See examples below for the details.
 
-The "Here Comes the Rain (Cloud Plot) Again" (B. Jablonski, 2024) article
-describing the macro is attached as an additional content to the package.
-
 ### SYNTAX: ###################################################################
 
 The basic syntax is the following, the `<...>` means optional parameters:
@@ -2126,7 +2052,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
  <,boxPlotSymbolSize=>
  <,boxPlotLineSize=>
  <,boxPlotFill=>
- <,whiskerScale=>
  <,meanShiftLine=>
  <,meanShiftStep=>
  <,meanShiftColors=>
@@ -2222,12 +2147,6 @@ The basic syntax is the following, the `<...>` means optional parameters:
                          Transparency of the box plot.
                          Ranges from 0.0 (opaque) to 1.0 (full translucent).
 
-* `whiskerScale=`      - *Optional*, default value `1.5`.                         
-                         It provides `WS` parameter in the `Q1 - WS*IQR`
-                         formula and the `Q3 + WS*IQR` formula.
-                         Provided value should be a positive number. 
-                         Otherwise it is set to 0.
-
 * `meanShiftLine`      - *Optional*, default value `0`.
                          Indicates if a line connecting mean symbol 
                          on the Box Plot should be added.
@@ -2447,14 +2366,12 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 The box-and-whiskers plot has the following interpretation: 
 - left vertical bar indicates the *minimum*,
-- left whisker line starts at `max(Q1 - WS*IQR, minimum)` and ends at lower quartile (Q1),
+- left whisker line starts at `max(Q1 - 1.5IQR, minimum)` and ends at lower quartile (Q1),
 - diamond indicates mean,
 - vertical bar inside of the box indicates median,
-- right whisker line starts at upper quartile (Q3) and ends at `min(Q3 + WS*IQR, maximum)`,
+- right whisker line starts at upper quartile (Q3) and ends at `min(Q3 + 1.5IQR, maximum)`,
 - right vertical bar indicates the *maximum*.
 
-The `WS` value is provided through `whiskerScale=` parameter. Default value is `1.5`.
-
 With above setup it may happen that 
 there is a gap between the minimum marker and the beginning of the left whisker 
 or 
@@ -2616,7 +2533,6 @@ The output can be seen in the `md` file.
   , vertical = 1
   , title = %nrstr(title1 J=C HEIGHT=3 "The VERTICAL plotting is cool, ...";)
   , footnote = %nrstr(footnote1 J=L HEIGHT=2 "... isn't it?";)
-  , whiskerScale = 1.5
   )
 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -4605,9 +4521,9 @@ semicolonN(X)
  
 ## `$bpklenght.` format/informat <a name="bpklenght-formats-49"></a> ######
  
-## >>> `bpklength` format/informat: <<< <a name="bpklength-format"></a> #######################
+## >>> `bpklenght` format/informat: <<< <a name="bpklenght-format"></a> #######################
 
-The **bpklength** format and informats uses the `klength()` function
+The **bpklenght** format and informats uses the `klength()` function
 to count the number of letters in a word. For empty string returns 0.
 
 
@@ -4617,9 +4533,9 @@ to count the number of letters in a word. For empty string returns 0.
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
 data work.count_letters;
   input x $ 32.;
-  n = input (x, bpklength.);
+  n = input (x, bpklenght.);
-  c = input (x, $bpklength.);
+  c = input (x, $bpklenght.);
-  format x $bpklength.;
+  format x $bpklenght.;
 cards;
 ż
 żó
@@ -4654,7 +4570,7 @@ data _null_;
   length x $ 32767;
   do i = 32767/3 to 0 by -1111, 10 to 0 by -1;
     x=repeat("空",i);
-    put x $bpklength.;
+    put x $bpklenght.;
   end;
 run; 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -4666,9 +4582,9 @@ run;
  
 ## `$bplenght.` format/informat <a name="bplenght-formats-50"></a> ######
  
-## >>> `bplength` format/informat: <<< <a name="bplength-format"></a> #######################
+## >>> `bplenght` format/informat: <<< <a name="bplenght-format"></a> #######################
 
-The **bplength** format and informats use the `lengthn()` function
+The **bplenght** format and informats use the `lengthn()` function
 to count the number of bytes in a word.
 
 
@@ -4678,9 +4594,9 @@ to count the number of bytes in a word.
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
 data work.count_bytes;
   input x $ 32.;
-  n = input (x, bplength.);
+  n = input (x, bplenght.);
-  c = input (x, $bplength.);
+  c = input (x, $bplenght.);
-  format x $bplength.;
+  format x $bplenght.;
 cards;
 ż
 żó
@@ -4715,7 +4631,7 @@ data _null_;
   length x $ 32767;
   do i = 32767/3 to 0 by -1111, 10 to 0 by -1;
     x=repeat("空",i);
-    put x $bplength.;
+    put x $bplenght.;
   end;
 run; 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -6029,11 +5945,6 @@ See examples below for the details.
 
 The `%findDSwithVarVal()` macro does not execute as a pure macro code.
 
-**NOTE:** 
-When a library is assigned with different engine than:
-"BASE","SPDE","V6","V7","V8","V9","CVP"
-observation number is not returned.
-
 ### SYNTAX: ###################################################################
 
 The basic syntax is the following, the `<...>` means optional parameters:
@@ -6471,7 +6382,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 3. `false` - *Required*, value returned when condition is false.
 
-* `v=`     - *Optional*, v for verbose. If set to `1` extra notes
+4 `v=`     - *Optional*, v for verbose. If set to `1` extra notes
               are printed.
 ---
 
@@ -6668,7 +6579,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 The letters() macro function allows to print a list of Roman
 letters starting from `start` up to `end` incremented by `by`.
-The letters list can be uppercase or lowercase (parameter `c=U` or `c=L`), 
+The letters list can be uppercases or lowercase (parameter `c=U` or `c=L`), 
 can be quoted (e.g. `q=""` or `q=[]`), and can be separated by `s=`.
 
 Values of `start`, `end`, and `by` have to be integers in range between 1 ad 26.
@@ -6696,12 +6607,12 @@ The basic syntax is the following, the `<...>` means optional parameters:
                    Values of `start`, `end`, and `by` are separated by 
                    colon and must be between 1 ad 26.
                    If value is outside range it is set to 
-                   `start=1`, `end=26`, and `by=1`. If `end` is missing
+                   `start=1`, `en=26`, and `by=1`. If `end` is missing
-                   then it is set to value of `start`.
+                   then is set to value of `start`.
                    If `end` is smaller than `start` list is reversed
 
 * `c = U`        - *Optional*, it is a lowercase letters indicator. 
-                   Select `L` or `l`. Default value is `U` for uppercase.
+                   Select `L` or `l`. Default value is `U` for upcase.
 
 * `q = `         - *Optional*, it is a quite around elements of the list. 
                    Default value is empty. Use `%str()` for one quote symbol.
@@ -7631,71 +7542,7 @@ run;
   
 ---
  
-## `%worklib()` macro <a name="worklib-macro-81"></a> ######
+## `%workpath()` macro <a name="workpath-macro-81"></a> ######
-
-## >>> `%workLib()` macro: <<< <a name="worklib-macro"></a> ####################### 
-
-The `%workLib()` macro creates and assigns a WORK-scoped sub-library.
-
-Purpose:
-
-The macro creates (if needed) and assigns a SAS library as a sub-directory 
-under the current `WORK` location. This is useful for isolating temporary 
-outputs per task while ensuring automatic cleanup at the end of the SAS session.
-Basic engines libraries, like `BASE`, `V*`, and simple `SPDE`, can be set.
-
-### SYNTAX: ###################################################################
-
-The basic syntax is the following, the `<...>` means optional parameters:
-~~~~~~~~~~~~~~~~~~~~~~~sas
-%workLib(lib,<engine>)
-~~~~~~~~~~~~~~~~~~~~~~~
-
-**Arguments description**:
- 
-- `lib`    - *Required*: Name of a library (and sub-folder) 
-             to create under WORK. The value must be a valid 
-             nonempty SAS libref (8 characters max, starting 
-             with a letter or underscore).
-
-- `engine` - *Optional*, Name of a basic, directory level, 
-             SAS engine, e.g. `BASE`. When empty the default
-             engine is used.
----
-
-### Details  
-
-- Builds a target path: `<WORK>/<lib>`.
-- All data written to this libref are temporary and will be removed 
-  when the WORK library is cleared at session end.
-- If a directory with the same name already exists under WORK, 
-  the macro prints a note and simply assigns the LIBNAME to 
-  that location.
-- The `dcreate()` function is used to create sub-directory.
-
- 
-### EXAMPLES AND USECASES: ####################################################
-
-**EXAMPLE 1.** Create library ABC assigned to `<WORK>/ABC` directory:
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %workLib(abc)
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-**EXAMPLE 2.** Create libraries with different engines:
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
-  %workLib(b,BASE)
-
-  %workLib(v,V6) %* for Windows only.;
-
-  %workLib(s,SPDE)
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
----
-
-  
----
- 
-## `%workpath()` macro <a name="workpath-macro-82"></a> ######
  
 ## >>> `%workPath()` macro: <<< <a name="workpath-macro"></a> #######################  
 
@@ -7738,7 +7585,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
  
 # License <a name="license"></a> ######
  
-Copyright (c) 2020 - 2025 Bartosz Jablonski
+Copyright (c) 2020 - 2023 Bartosz Jablonski
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

extras/Paper_164-WUSS2024.sas

@@ -1,698 +0,0 @@
-/* WUSS 2024 Paper 164 */
-/* "Here Comes the Rain (Cloud Plot) Again" */
-/* by Bartosz Jablonski */
-
-/* Rain Cloud Plots - PART 1 - Article Plots */
-
-/* SETUP *//*
-----------------------------------------------------------------------
-Only the first time:
-^^^^^^^^^^^^^^^^^^^^
-
-  filename packages "/path/to/my/packages";
-
-  filename SPFinit url "https://bit.ly/SPFinit";                 *(1);
-  %include SPFinit;
-
-  %installPackage(SPFinit BasePlus)                              *(2);
-
-
-
-----------------------------------------------------------------------
-On start of fresh SAS session:
-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-
-  filename packages "/path/to/my/packages";
-  %include packages(SPFinit.sas);
-
-  %loadPackageS(BasePlus)                                        *(3);
-
-
-
-----------------------------------------------------------------------*/
- 
-/*footnotes**********************************************************
-*(1); Bitly points to:
-  https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.sas
-
-*(2); BasePlus is loaded for the %RainCloudPlot() macro.
-
-*(3); RainCloudPlot can be just "cherry picked" from BasePlus:
-  %loadPackage(BasePlus, cherryPick=RainCloudPlot)
-*********************************************************************/
-
-
-/* basePlus, version 1.41.0 or later is required */
-/* Help notes in log */
-%helpPackage(basePlus, RainCloudPlot)
-
-
-%let path=/path/for/plots/; /* adjust for your session */
-
-resetline;
-data have;
-  call streaminit(42);
-  do i = 1 to 3;
-    groupingVar = byte(64+i);
-    do j = 1 to rand("integer",17,42);
-      select(i);
-        when(1) analysisVar = rand("uniform", 1, 7);
-        when(2) analysisVar = rand("normal", -3, 2);
-        when(3) analysisVar = rand("exponential", 2);
-        otherwise;
-      end;
-      output;
-    end;
-  end;
-  drop i j;
-run;
-proc print;
-run;
-
-/* utility macros */
-%macro beforePlot(N,orientation=landscape,papersize=A4);
-ods printer close; ods pdf close;
-options orientation=&orientation. nodate nonumber papersize=&papersize. center;
-options topmargin=0cm leftmargin=0cm rightmargin=0cm bottommargin=0cm;
-ods pdf file="&path.//WUSS2024paper164plot&n..pdf" contents=no notoc dpi=600;
-ods printer file="&path.//WUSS2024paper164plot&n..svg" printer=svg dpi=600;
-%mend beforePlot;
-
-%macro afterPlot();
-ods printer close;
-ods pdf close;
-%mend afterPlot;
-
-
-/* 1 */
-%beforePlot(1);
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-)
-%afterPlot()
-
-
-/* 2 */
-%beforePlot(2)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, TITLE = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";
-                )
-, FOOTNOTE = 
-    %str(footnote1 J=R H=1 C=Gray 
-        "Data set HAVE, with 87 observations, two variables.";)
-)
-%afterPlot()
-
-
-/* 3 */
-%beforePlot(3)
-data colors;
-input color :$20. @@;
-retain y -0.5;
-value=1;
-x=1;
-y+1;
-cards;
-BlueViolet RoyalBlue OliveDrab 
-Gold HotPink Crimson
-MediumPurple CornflowerBlue YellowGreen 
-Goldenrod Orchid IndianRed
-;
-run;
-proc sgplot data=colors noborder noautolegend nowall subpixel;
-  styleattrs
-    DATACOLORS = (
-      BlueViolet RoyalBlue OliveDrab 
-      Gold HotPink Crimson
-      MediumPurple CornflowerBlue YellowGreen 
-      Goldenrod Orchid IndianRed
-    )
-  ;
-  vbarparm response=value category=value/
-    group=color
-    grouporder=data
-    nooutline
-    groupdisplay=stack
-    clusterwidth=1
-    baselineattrs=(thickness=0)
-  ;
-  text X=x Y=y TEXT=color / 
-    backlight=.5
-    position=right
-    discreteoffset=-0.42
-    textattrs=(family="Courier New" size=14 weight=bold)
-  ; 
-
-  xaxis display=none offsetmax=0 offsetmin=0;
-  yaxis display=none;
-run;
-%afterPlot()
-
-
-/* 4 */
-%beforePlot(4)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";
-                )
-, footnote = 
-    %str(footnote1 J=R H=1 C=Gray 
-        "Data set HAVE, with 87 observations, two variables.";)
-, MONOCHROME=1
-)
-%afterPlot()
-
-
-/* 5 */
-%beforePlot(5)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, COLORSLIST = CornflowerBlue OliveDrab IndianRed
-)
-%afterPlot()
-
-
-/* 6 */
-%beforePlot(6)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, RAINDROPSIZE = 8px
-, KERNEL_K = quadratic
-, KERNEL_C = 0.99
-, VSCALE = Percent
-, VSCALEmax = 60
-)
-%afterPlot()
-
-
-/* 7 */
-%beforePlot(7)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud (without BOX) Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, BOXPLOT=0
-)
-%afterPlot()
-
-
-
-/* 8 */
-%beforePlot(8)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, BOXPLOT=1
-, BOXPLOTFILL = 0.5
-, BOXPLOTLINESIZE = 2px
-, BOXPLOTSYMBOLSIZE = 12px 8px
-)
-%afterPlot()
-
-
-
-
-
-
-
-
-resetline;
-proc format;
-value $ FormatForGroup
-  "A" = 'Uniform[1, 7]'
-  "B" = 'Normal(-4, 2)'
-  "C" = 'Exponential(2)'
-  other = "Unknown!"
-  ;
-
-picture myPercent
-  0-100 = "099.9%"
-  other = "Wrong value"
-  ;
-run;
-
-proc datasets lib=work nolist;
-  modify have;
-    format groupingVar $FormatForGroup.;
-  run;
-quit;
-
-
-
-/* 9 */
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-
-%beforePlot(9)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-
-, XLABELS = ("Analyzed variable")
-, XLABELPOS = CENTER
-, XLABELATTRS = &labelStyle.
-, XAXISVALUEATTRS = &valuesStyle.
-, XAXISTICKSTYLE = ACROSS
-, XBOTHAXIS = 0
-
-, XAXISVALUES=(-10 to 10 by 2)
-, XAXISVALUESFORMAT=F5.2 /* instead w.d format use Fw.d !! */
-, XAXISOTHER=grid gridattrs=(thickness=0)
-             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
-
-, CATLABELS = ("Grouping variable with formated values")
-, CATLABELPOS = TOP
-, CATLABELATTRS = &labelStyle.
-, CATAXISVALUEATTRS = &valuesStyle.
-, FORMATED = 1
-
-, Y2AXIS = 1
-, Y2AXISLEVELS = 5
-, Y2AXISVALUEATTRS = &valuesStyle.
-, Y2AXISFORMAT = myPercent.
-, Y2AXISLINES = 1
-)
-%afterPlot()
-
-
-
-
-/* 10 */
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-
-%beforePlot(10)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("Analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(-8 to 8 by 2)
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable with formated values")
-, catlabelpos = TOP
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-
-, WIDTHPX = 1200
-, HEIGHTPX = 300
-
-, MINRANGE = -8
-, MAXRANGE =  8
-)
-%afterPlot()
-
-
-/* 11 */
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-
-%beforePlot(11)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("Analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(-8 to 8 by 2)
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable with formated values")
-, catlabelpos = TOP
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 300
-, minrange = -8
-, maxrange =  8
-
-, ODSGRAPHICSOPTIONS = NOBORDER
-, SGPLOTOPTIONS = NOAUTOLEGEND NOBORDER NOWALL PAD=0
-
-)
-%afterPlot()
-
-
-
-/* 12 */
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-
-data WORK.IN_PROGRESS; 
-  function="TEXT";      transparency=0.5; 
-  textcolor="GOLD";     textweight="BOLD";
-  widthunit="PERCENT";  drawspace="GRAPHPERCENT";
-  width=500;
-
-
-  label="*) will be ready for WUSS 2024";
-  textsize=24; anchor="LEFT  ";
-  x1=2; y1=3; rotate=0;
-  output;
-
-  label="Draft(*ESC*){sup '*'}";
-  textsize=128; anchor="CENTER";
-  x1=50; y1=50; rotate=30;
-  output;
-run; 
-
-
-%beforePlot(12)
-%rainCloudPlot(
-  have
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("Analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(-8 to 8 by 2)
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable with formated values")
-, catlabelpos = TOP
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 300
-, minrange = -8
-, maxrange =  8
-, odsgraphicsoptions = noborder
-, sgplotoptions = noautolegend noborder nowall pad=0
-
-, SGANNO = WORK.IN_PROGRESS
-)
-%afterPlot()
-
-
-
-
-/* 13 */
-%beforePlot(13)
-%rainCloudPlot(
-  have2
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot - vertical";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE2, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("Analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(-8 to 8 by 2)
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable (formatted)")
-, catlabelpos = CENTER
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 300
-, minrange = .
-, maxrange = .
-, odsgraphicsoptions = noborder
-, sgplotoptions = noautolegend noborder nowall pad=0
-, sganno = work.in_progress
-
-, MEANSHIFTLINE=1
-, MEANSHIFTSTEP=0.1
-, MEANSHIFTCOLORS=Blue Green Red
-
-)
-%afterPlot()
-
-
-
-
-
-resetline;
-/* 14 */
-data have2;
-  set have;
-  groupingVar2 = ifc(0=mod(_N_,2),"Even","Odd");
-  analysisVar2 = rannor(42);
-run;
-
-
-%beforePlot(14)
-%rainCloudPlot(
-  have2
-, groupingVar groupingVar2
-, analysisVar analysisVar2
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot &gi. &xj.";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE2, with 87 observations, four variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("First analyzed variable", "Second analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-/*, xaxisValues=(-8 to 8 by 2)*/
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable one", "Grouping variable two")
-, catlabelpos = TOP
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 300
-, minrange = .
-, maxrange = .
-, odsgraphicsoptions = noborder
-, sgplotoptions = noautolegend noborder nowall pad=0
-, sganno = work.in_progress
-, meanShiftLine =1
-)
-%afterPlot()
-
-
-/* 15 */
-%beforePlot(15,orientation=PORTRAIT)
-%rainCloudPlot(
-  have2
-, groupingVar
-, analysisVar
-, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot - vertical";
-                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
-, footnote = %str(footnote1 J=R H=1 C=Gray 
-                 "Data set HAVE2, with 87 observations, two variables.";)
-, colorslist = CornflowerBlue OliveDrab IndianRed
-, raindropsize = 8px
-, kernel_k = quadratic
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 60
-, boxplot=1
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, xlabels = ("Analyzed variable")
-, xlabelpos = CENTER
-, xlabelattrs = &labelStyle.
-, xaxisvalueattrs = &valuesStyle.
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(-8 to 8 by 2)
-, xaxisValuesFormat=F5.2
-, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
-, catlabels = ("Grouping variable (formatted)")
-, catlabelpos = CENTER
-, catlabelattrs = &labelStyle.
-, cataxisvalueattrs = &valuesStyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesStyle.
-, y2axisformat = myPercent.
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 300
-, minrange = .
-, maxrange = .
-, odsgraphicsoptions = noborder
-, sgplotoptions = noautolegend noborder nowall pad=0
-, sganno = work.in_progress
-, meanShiftLine=1
-, meanShiftStep=0.05
-
-, VERTICAL = 1
-)
-%afterPlot()
-
-
-
-
-
-
-/*
-%helpPackage(basePlus, RainCloudPlot)
-*/
-

extras/Paper_164-WUSS2024_slides.sas

@@ -1,299 +0,0 @@
-/* WUSS 2024 Paper 164 */
-/* "Here Comes the Rain (Cloud Plot) Again" */
-/* by Bartosz Jablonski */
-
-/* Rain Cloud Plots - PART 2 - Presentation Plots */
-
-/*
-   See:
-  
-   Rain Cloud Plots - PART 1 - Article Plots (file: Paper_164-WUSS2024.sas)
-
-   for details about the setup. 
-*/
-
-
-
-data have;
-  call streaminit(64);
-  vertical = 42;
-  do j = 1 to 42;
-    horizontal = rand("uniform", 24, 42);
-    output;
-  end;
-  drop i j;
-run;
-data have;
-  set have;
-  horizontal = horizontal - 13;
-run;
-proc print;
-run;
-
-
-
-/* 101 */
-%beforePlot(101)
-%rainCloudPlot(
-  have
-, vertical
-, horizontal
-, TITLE = %str(
-          title1 H=2 J=C "Here Come The Rain Again";
-          title2 H=1 J=C "Bartosz Jablonski";
-          )
-, FOOTNOTE = 
-, vscale = percent
-, vscalemax = 42
-, y2axislevels = 1
-, BOXPLOT=1
-, BOXPLOTFILL = 0.5
-, RAINDROPSIZE = 8px
-, COLORSLIST=CX222222
-, BOXPLOTLINESIZE = 2pt
-, MINRANGE = 0
-, MAXRANGE =  42
-, xaxistickstyle = ACROSS
-, xbothaxis = 0
-, xaxisValues=(0 to 42 by 42)
-, xaxisValuesFormat=F3.0
-, xaxisOther=MINOR 
-, widthpx = 1200
-, heightpx = 800
-)
-%afterPlot()
-
-
-%beforePlot(102)
-%rainCloudPlot(sashelp.cars, origin, invoice)
-%afterPlot()
-
-%beforePlot(103)
-%rainCloudPlot(sashelp.class, sex, height)
-%afterPlot()
-
-
-
-
-
-
-
-%beforePlot(104)
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, TITLE = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, FOOTNOTE = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-)
-%afterPlot() /*"*/
-
-
-%beforePlot(105)
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-
-, COLORSLIST = OrangeRed OliveDrab
-, BOXPLOTFILL = 0.5
-, BOXPLOTLINESIZE = 2px
-, BOXPLOTSYMBOLSIZE = 12px 8px
-)
-%afterPlot() 
-
-
-
-%beforePlot(106)
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-, colorslist = OrangeRed OliveDrab
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, RAINDROPSIZE = 3px
-, KERNEL_K = triangular
-, KERNEL_C = 0.99
-, VSCALE = Percent
-, VSCALEmax = 75
-)
-%afterPlot() 
-
-%beforePlot(107)
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-, colorslist = OrangeRed OliveDrab
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, raindropsize = 3px
-, kernel_k = triangular
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 75
-
-, XLABELS = ("Analyzed variable")
-, XLABELPOS = CENTER
-, XLABELATTRS = &labelStyle.
-, XAXISVALUEATTRS = &valuesStyle.
-, XAXISTICKSTYLE = ACROSS
-, XBOTHAXIS = 0
-
-, XAXISVALUES=(1e4 to 18e4 by 1e4)
-, XAXISVALUESFORMAT=dollar12.2
-, XAXISOTHER=grid gridattrs=(thickness=0)
-             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
-
-, CATLABELS = ("Grouping variable")
-, CATLABELPOS = TOP
-, CATLABELATTRS = &labelStyle.
-, CATAXISVALUEATTRS = &valuesStyle.
-, FORMATED = 1
-
-, Y2AXIS = 1
-, Y2AXISLEVELS = 5
-, Y2AXISVALUEATTRS = &valuesStyle.
-, Y2AXISFORMAT = F5.2
-, Y2AXISLINES = 1
-
-, WIDTHPX = 1200
-, HEIGHTPX = 350
-)
-%afterPlot() 
-
-
-
-data WORK.AT_WUSS; 
-  function="TEXT"; transparency=0.3; 
-  textcolor="CornflowerBlue"; textweight="BOLD";
-  widthunit="PERCENT"; drawspace="GRAPHPERCENT";
-  width=500;
-
-  label="WUSS(*ESC*){sup '*'}";
-  textsize=96; anchor="CENTER";
-  textfont="Courier New";
-  x1=75; y1=20; rotate=0;
-  output;
-run;
-
-%beforePlot(108)
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-, colorslist = OrangeRed OliveDrab
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, raindropsize = 3px
-, kernel_k = triangular
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 75
-, xlabels = ("Analyzed variable")
-, xlabelpos = center
-, xlabelattrs = &labelstyle.
-, xaxisvalueattrs = &valuesstyle.
-, xaxistickstyle = across
-, xbothaxis = 0
-, xaxisvalues=(1e4 to 18e4 by 1e4)
-, xaxisvaluesformat=dollar12.2
-, xaxisother=grid gridattrs=(thickness=0)
-             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
-, catlabels = ("Grouping variable")
-, catlabelpos = top
-, catlabelattrs = &labelstyle.
-, cataxisvalueattrs = &valuesstyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesstyle.
-, y2axisformat = f5.2
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 350
-
-, SGANNO = WORK.AT_WUSS
-, MEANSHIFTLINE=1
-, MEANSHIFTSTEP=0.01
-, MEANSHIFTCOLORS=gold blue
-)
-%afterPlot() 
-
-
-
-
-
-data WORK.AT_WUSS2; 
-  function="TEXT"; transparency=0.3; 
-  textcolor="CornflowerBlue"; textweight="BOLD";
-  widthunit="PERCENT"; drawspace="GRAPHPERCENT";
-  width=500;
-
-  label="WUSS(*ESC*){sup '2'}";
-  textsize=96; anchor="CENTER";
-  textfont="Courier New";
-  x1=60; y1=70; rotate=0;
-  output;
-run;
-
-%beforePlot(109,orientation=PORTRAIT)
-%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
-%let valuesStyle = size=8 family="Courier New" style=italic;
-%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
-, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
-                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
-                )
-, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
-, colorslist = OrangeRed OliveDrab
-, boxplotfill = 0.5
-, boxplotlinesize = 2px
-, boxplotsymbolsize = 12px 8px
-, raindropsize = 3px
-, kernel_k = triangular
-, kernel_c = 0.99
-, vscale = percent
-, vscalemax = 75
-, xlabels = ("Analyzed variable")
-, xlabelpos = top
-, xlabelattrs = &labelstyle.
-, xaxisvalueattrs = &valuesstyle.
-, xaxistickstyle = across
-, xbothaxis = 0
-, xaxisvalues=(1e4 to 18e4 by 1e4)
-, xaxisvaluesformat=dollar12.2
-, xaxisother=grid gridattrs=(thickness=0)
-             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
-, catlabels = ("Grouping variable")
-, catlabelpos = center
-, catlabelattrs = &labelstyle.
-, cataxisvalueattrs = &valuesstyle.
-, formated = 1
-, y2axis = 1
-, y2axislevels = 5
-, y2axisvalueattrs = &valuesstyle.
-, y2axisformat = f5.2
-, y2axislines = 1
-, widthpx = 1200
-, heightpx = 400
-, sganno = WORK.AT_WUSS2
-, meanshiftline=1
-, meanshiftstep=0.01
-, meanshiftcolors=gold blue
-
-, VERTICAL = 1
-, ODSGRAPHICSOPTIONS = NOBORDER
-, SGPLOTOPTIONS = NOAUTOLEGEND NOBORDER NOWALL PAD=0
-)
-%afterPlot()