From 4dfcf4e33f60fdb351aa3c8a473418aaa49ee669 Mon Sep 17 00:00:00 2001 From: James J Balamuta Date: Sun, 12 Nov 2023 20:39:18 -0700 Subject: [PATCH] Address unicode lettering (#14) * Switch use of unicode for <= and >= to symbols. * Re-run documentation * Remove old distribution variables * Update the data * Bump version dependency to R 4.0.0 and fix URL * Empty space * Clean up distribution error * Remove travis and switch over to using GitHub Actions * Update README * Add pkgdown website * Switch the subheader to use greek symbols * Add release notes * Bump required version * Force HTTPS --- .Rbuildignore | 4 +++ .github/.gitignore | 1 + .github/workflows/R-CMD-check.yaml | 49 ++++++++++++++++++++++++++ .github/workflows/pkgdown.yaml | 48 +++++++++++++++++++++++++ .gitignore | 1 + .travis.yml | 4 --- DESCRIPTION | 10 +++--- NEWS.md | 9 +++++ R/sysdata.rda | Bin 7955 -> 7923 bytes R/visualize-distributions.R | 2 -- R/visualize.continuous.R | 54 +++++++++++++---------------- R/visualize.discrete.R | 14 ++++---- README.Rmd | 2 +- README.md | 6 ++-- _pkgdown.yml | 4 +++ data-raw/visualize.distributions.R | 16 ++++----- man/visualize-package.Rd | 15 ++++---- man/visualize.beta.Rd | 2 +- man/visualize.binom.Rd | 13 ++++--- man/visualize.cauchy.Rd | 5 ++- man/visualize.chisq.Rd | 2 +- man/visualize.continuous.Rd | 33 ++++++++---------- man/visualize.discrete.Rd | 7 ++-- man/visualize.exp.Rd | 2 +- man/visualize.f.Rd | 2 +- man/visualize.gamma.Rd | 2 +- man/visualize.geom.Rd | 7 ++-- man/visualize.hyper.Rd | 14 +++++--- man/visualize.it.Rd | 13 ++++--- man/visualize.lnorm.Rd | 5 ++- man/visualize.logis.Rd | 5 ++- man/visualize.nbinom.Rd | 13 ++++--- man/visualize.norm.Rd | 2 +- man/visualize.pois.Rd | 7 ++-- man/visualize.t.Rd | 2 +- man/visualize.unif.Rd | 2 +- man/visualize.wilcox.Rd | 2 +- 37 files changed, 245 insertions(+), 134 deletions(-) create mode 100644 .github/.gitignore create mode 100644 .github/workflows/R-CMD-check.yaml create mode 100644 .github/workflows/pkgdown.yaml delete mode 100644 .travis.yml create mode 100644 _pkgdown.yml diff --git a/.Rbuildignore b/.Rbuildignore index adb0224..f9ce042 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -6,3 +6,7 @@ ^cran-comments\.md$ ^\.travis\.yml$ ^CRAN-RELEASE$ +^\.github$ +^_pkgdown\.yml$ +^docs$ +^pkgdown$ diff --git a/.github/.gitignore b/.github/.gitignore new file mode 100644 index 0000000..2d19fc7 --- /dev/null +++ b/.github/.gitignore @@ -0,0 +1 @@ +*.html diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml new file mode 100644 index 0000000..a3ac618 --- /dev/null +++ b/.github/workflows/R-CMD-check.yaml @@ -0,0 +1,49 @@ +# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples +# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help +on: + push: + branches: [main, master] + pull_request: + branches: [main, master] + +name: R-CMD-check + +jobs: + R-CMD-check: + runs-on: ${{ matrix.config.os }} + + name: ${{ matrix.config.os }} (${{ matrix.config.r }}) + + strategy: + fail-fast: false + matrix: + config: + - {os: macos-latest, r: 'release'} + - {os: windows-latest, r: 'release'} + - {os: ubuntu-latest, r: 'devel', http-user-agent: 'release'} + - {os: ubuntu-latest, r: 'release'} + - {os: ubuntu-latest, r: 'oldrel-1'} + + env: + GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} + R_KEEP_PKG_SOURCE: yes + + steps: + - uses: actions/checkout@v3 + + - uses: r-lib/actions/setup-pandoc@v2 + + - uses: r-lib/actions/setup-r@v2 + with: + r-version: ${{ matrix.config.r }} + http-user-agent: ${{ matrix.config.http-user-agent }} + use-public-rspm: true + + - uses: r-lib/actions/setup-r-dependencies@v2 + with: + extra-packages: any::rcmdcheck + needs: check + + - uses: r-lib/actions/check-r-package@v2 + with: + upload-snapshots: true diff --git a/.github/workflows/pkgdown.yaml b/.github/workflows/pkgdown.yaml new file mode 100644 index 0000000..ed7650c --- /dev/null +++ b/.github/workflows/pkgdown.yaml @@ -0,0 +1,48 @@ +# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples +# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help +on: + push: + branches: [main, master] + pull_request: + branches: [main, master] + release: + types: [published] + workflow_dispatch: + +name: pkgdown + +jobs: + pkgdown: + runs-on: ubuntu-latest + # Only restrict concurrency for non-PR jobs + concurrency: + group: pkgdown-${{ github.event_name != 'pull_request' || github.run_id }} + env: + GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} + permissions: + contents: write + steps: + - uses: actions/checkout@v3 + + - uses: r-lib/actions/setup-pandoc@v2 + + - uses: r-lib/actions/setup-r@v2 + with: + use-public-rspm: true + + - uses: r-lib/actions/setup-r-dependencies@v2 + with: + extra-packages: any::pkgdown, local::. + needs: website + + - name: Build site + run: pkgdown::build_site_github_pages(new_process = FALSE, install = FALSE) + shell: Rscript {0} + + - name: Deploy to GitHub pages 🚀 + if: github.event_name != 'pull_request' + uses: JamesIves/github-pages-deploy-action@v4.4.1 + with: + clean: false + branch: gh-pages + folder: docs diff --git a/.gitignore b/.gitignore index 8a9e9c0..5192a3f 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ *-Ex.R .Rproj.user CRAN-RELEASE +docs diff --git a/.travis.yml b/.travis.yml deleted file mode 100644 index eba8c65..0000000 --- a/.travis.yml +++ /dev/null @@ -1,4 +0,0 @@ -# R for travis: see documentation at https://docs.travis-ci.com/user/languages/r - -language: R -cache: packages diff --git a/DESCRIPTION b/DESCRIPTION index aba8663..f1b83e9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: visualize Type: Package Title: Graph Probability Distributions with User Supplied Parameters and Statistics -Version: 4.4.0 -Depends: R (>= 3.0.0) +Version: 4.5.0 +Depends: R (>= 4.0.0) Authors@R: c( person("James", "Balamuta", role = c("aut", "cph", "cre"), @@ -16,8 +16,8 @@ Description: Graphs the pdf or pmf and highlights what area or probability is to inequalities. Also provided on the graph is the mean and variance of the distribution. License: MIT + file LICENSE -URL: https://github.com/coatless/visualize, http://thecoatlessprofessor.com/projects/visualize/ -BugReports: https://github.com/coatless/visualize/issues +URL: https://github.com/coatless-rpkg/visualize, https://thecoatlessprofessor.com/projects/visualize/, https://r-pkg.thecoatlessprofessor.com/visualize/ +BugReports: https://github.com/coatless-rpkg/visualize/issues Encoding: UTF-8 -RoxygenNote: 6.1.1 +RoxygenNote: 7.2.3 Roxygen: list(markdown = TRUE) diff --git a/NEWS.md b/NEWS.md index b9587ec..a87fde1 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,12 @@ +# visualize 4.5.0 - Hotfix - "Seeing is Greek" + +## CHANGES + +- Removed unicode to display variables and inequalities per CRAN request. +- Increased the required R version to v4.0.0. +- Switched deployment from Travis to GitHub Actions +- Added a pkgdown website. + # visualize 4.4.0 - Hotfix - "Seeing is Refreshing" ## CHANGES diff --git a/R/sysdata.rda b/R/sysdata.rda index cbbe66d6a59c97cb4197d38180c4ea39cdacb2a5..157e272f3abbf51517eafa0a6eb43541f92a34c3 100644 GIT binary patch literal 7923 zcmaKQS5Om9_-!asLoX(P7(%3mlF${D5|9Ltme4^69qEEdQEAcyq=epkM`}Qk-i!3! zrGub=Ac~@w-~ZmZ5BK4o`R44-w`XV1zU<6dWfKQEgpx6zzHx)|jvgS|@8ACi>$hM1 z)A_f~_sWkzmJxGN5UFkX`!Ej*xLD2c2_!wfw|=u%Pw{YwJeZ)aD)d;0%)n?e4Ru2ha3hQqO%nT{L;bv1vJ*^Ed>=0DW(Pv2gj1gvi)4mX-ONKQx`0qlma@Dbs8yn z;8%RYsi-gDqOCtZkXE**t^Y9JkJqu(FWrG6M$(Fm>MXppXG*Cd-EM}CLxH;_KXv+C zfyD_CpD)fsEc89YX`I{xBB$YS7>Qkt6NB;G177eE36@IpEf zNIZoaiFg`^IKWYyR8UJvlEw|=s}^{U^z$nzWYBTo&UL^m@N5Kf=Su4U(+UASbkYTi zWLlDBihgOFy8l_YKA$2iERc;gnAA~1pBH7RMXgYzAjzvg!J(iCZ~)j0IB)>QuRW6~ zUYopD|L2$kKw`tIOyjFyL^1T){)%2&JB7DBS(h|Cg;(cpa5~$Gj0OKue3y4#$=Z>rzUUdmW`F5IDb>!el^G zBNA*sMR&?*%=9xnfYK$T!dzr(=`DC<{U7(dfG$cE#UgSCip9}n{VrZ9(fwT0OTP;_ zewx2vx+YYfh=NK#?ougRd>vg)GOl%(?kk8FdX`_j>BUsEl97M?f5u zBk&FwLFGG{RPI2Eub43IoX($E$N zct7m$MA>0$4?wD*jUziY!iBiKn&M(BR)j1&!d<~4)9Cl8&d>`HaRTV*E8(!2FJc(ua|1kNo6I#XP4Vy z_XQsR$0Jj2K*8@)^uj-~JNFt_K5gLrFOI+Vk5<2~`7EVhBkdZgrKEqB=cQZQI?iQ`YQx_xg@2oV{Mg4jQFStyKQNz65Rzj!;Uh;z zq2C}W9>*h|RiQ0j77loAkoa&*1KrJrulpBZ8ikBkP<}~W%4iG${0aq7nMWpllxf#s zp?S-7{^i4~Vd`u(uS8I6S5W-k{a|I?L|{(Uvh z>MLf7_R(Ob2Z`P5|NMzkgoO_nkP!%6R@w6Hfv)JoiNH7TJOD6mod-~jCkNc1BJ1so zT}tM`n0ZcU9Pj!3;}^|AT*!jO;!c+3_|(D;0i+DQm}%6Luq=Jfx80k=D%(u7yM|a8yFsp!UqTWUR5Ma+9|IhMkH_f|4U0YW z-+OsMkGh5p&PRaVTeM5>ehE+H8PQw(CZptWCJ-5H6~!HMgu>`4Zd_emYq#&Hn0qpL>P&f4Mss8`HgDF%yTD;lDkZ!{kbVdNO{7W@mZE3+ zcbAo?W=7sq6RGD$C}U;SEqgk?B`D-zNxI9Oizeet7l$Xb>m|S8J0?kp`La!gJH=yd zJ(Z*_I+Zth&qTlZxGtyEt3P5gX!RTRAp01ewAHl?_}+NwI@R#&syIc4Oy(M~cC3>B z8}i;IP!68<4iqmh1w;M~0UDYY-&ZDgywA_Sb^-R!Ru%IIclG9CWWSft>3KxQ!^9@1 zbRkF5;!AnLQXE=vKQ-qCgb%bw zrY71gk$#u!kO*B$l@4)uS)X*8{9zY>?i2T!HT3@TzOdq+HWq1Tmp=;U_PxwuL6 z`n{9bAjIAu_FWC1dHgb^`ebtc=f2%b`Qat^0lrCpSFg{m* z?p(fCa+s`1^D+BGaCZTpzpaoDT3?1+;`OBch9Gx)(8sm#nVbbUmR;XqPxyF@CNkVu z^!KW+m-tfLqRHJ z?kMDNC+M7n5Xp;QVzdT884ca~@Qz0lyQRF6Q1+TqAxz(7Xpw*GbRXj;I>o(6rYMLw zsiw0@UDfs8{*L^L%GL{N-T``kPE0-}=cGh_3k2uC(Iq z1n&P!@|*FCkPlz^)BNpY6KCPlT-l}8NcQ9M)6?7Lx442G+x_K7=K|8c^{-oDyFRGh z_?lCtjVwO@7T{ayGbbbQa5M1{P1@XTVchWNA4k}L!?T98eLuIZWQ%9!Z5%g4*Dh#G z-qDGw^o>M+PS*T;nIw;Dy}hzwEo;m20F22N!Y$IBKMY$`?bhSgeb>EgKuB5m;6Ap$z_-)yn?U8Bplz>LX?R zNSKOf=qOJ{dDXiaEnsI~vW=G)`G($XD`s-oVX8vzPG+dgV)`~F??sb`ow z>ij`j>oi_oUg2hHiV%U*{UQQiV2++Ad_-ID-S}~%AI4VEZurXomG2AxNrUPM^Dj?k z=Q6$VhQ4Zx@fCJWPjJC4ZI6qSzf5^e6$lGW7QK;%6I;v-?nixiV{o)zmeEvS@4D8% z>ADoV(t3-X{U!q?MK~qRW9OGst?TC%g!!E6-&WU zG61MI9duv%aT-lfTo@U%#2u1Kj8Q%)g=HX)LlPm{!3p7D6em*$)iW`{;#tJI#Rny} z0+j)(K{zs25QL$YnHmqnpxDvuq)En%ceqegkG6t`!opaMI#6{gOga%(q+J8>&_HUO zmBB++Di(4c9z6;0jb$<1b31k84olm zA-!?1AU-{qVkgB-DmA<{E0lt~i;95ep@uxZeV0dZf?TlxM$HRQW*mqkQLl;S;h~8e zU>pjD5TYO%6T=IGhq?Q_g)8a57Nu(WzC4>RR5sLp#g`y@dDK)x*4x46TnKIeG|`%j zzfFF(rYS-yd-<1{=>Ic(%KX?!UGp85jk7YDUdM`-0!~_xpx%xD5&g#`wW>_yy>ML;8o@z~K#O{Aww)@F*M^ZNkjWFq z!icH~t%D9j@{|h`OjzMT4mvdk-UxQ2CSw;9a>RxnSTn@TKFx?n_4M-#3AXCp5p-aJ z=H=!U6$%KFGLgOf4!E@*6y}Z*s0Ic{9OyFA#es01R0IdcA`%}AHJ!R-hicuO+y>I2 zbQl>z2eo!@Co|o#IP;oH_%bs?S?L%dh3e()d*ZyTcl2&l=-nuT!WtoPETBZmCjLjw z=!1-h-CZH05M@dL#NTkpsy8}7YtWmoyHkf?PpkdGhCh3SNThK9q&0|QCNP5;zio*H z(Q9vt`d5CQ*$xLj9^L;O8SsK@izR&!2YcuhaVLn!k+;zjiZ8sE+ec367#a0iy*xFQ z;FKE2mC2XRTCSHspdv()=R=_>{6e{fRADf^{HP#cO};AV4uz{C;xj}%3n9dqtd3e^ zxH?83cFszwIW;VzBcaZBMH$L>@0-|qc%1oY1S23$rQ!uC7cDykSU-(aYVGHHHeQIqgTX7jXnpxS6iBVU#`*d z`BssLNv*lAtouoabv+Je^3>S^YXKO2FWLLfD6{7{x+-QyX1ku3-S@CJKr_?Oo;lr7 ze3nB|s!SAgGMFxY>oyVhKfvhdYLB60T$h8aIw=Mew!n7n^ecaSynUbkeDJOt-F4{I z*-D84z=KI@;0+hJmovgP%_$0{6Lk83RO&|E*Es$*p1wcW&$LrBt&?nWHx*_eyR46~ z;MMUUC#}F~k4iI>y3LzFgkc?*J>O2;s0$aD|Gzwv4hHtWZQx}SC~h?>^pl6Tn`c#~ zaCJ=$>UkUmuQUUE?C zE}U4^G|wVk*E*ufQw;?L$6-M|aaI&yoA8$Xwr}d2g^Tqryf*~;9p0*E=Se@BCYm}o zx(+hcNn1z+lm(+Z3E^__e8eT=#z}kGa!0(Fn(wA*6LzlD-xDq4v+!-Lavle*YL+<< zmNqns@?bm!)^sC=vp8&B8j3lnlMQ-J4Hkd!fHPKm7mAB)!|bk}2~-h>U943rpTH%g zsv3!Pb?#5Iv-4j2kWYKQGYIN0=5-0+$e%0QQFul?H|0>~v>3aX6hw3SElUjvk|A zl@HoTKo2q)R;+iwm@=!XT=;DCUfie7nGSL6Iy`cI836pltm)# zYm6rBdwJdOv`wZQm$;jp3HKMOGIC>yNxpmC3fTi^*_P1WM*g^!`DgmrH6&O&qbkmp zGI1-^h`!9dj3u_X-jn8`8l zMwOzYaOKAbIfA!mur{mO3Y>jMt4kKq%eb0PZ~8o~^GaxKaUWS8XYJ30dpQz0oo0x~ zk*B%q3;3B|GPG@UkO>M#yf4!zs&2B!gZts@9c$25nr$*7MxS=Qc(5{h+YEA^JEdBd zzEJ=~(1GD1MA+=_mv)Y`jn^LwdGnT53tB`yeK>~NMgxf&89`|dLCr}op<+}~vt>$s zh&R!fAG4e_M9n^~c;u~=$ekMZEt<+d@9j}sTMl{`vz5Ry6pl57d*O{;Ny~A^UA_*f>v^mbi7GSR>LQ$DL5qvz?<5W}bL8@$eNTLwHVI8ar$i zqUHVNmU$ot6FINV}3lGasi>T8=7S`JfRHp99Hm*(Sn zsMM+F6VM^F7V3CB&RGeJ{yraS&yypMRQxr$#YY3WlN-674gUHGU00w?6Rk{>E2yjf zO9)6C*Zbp)FS6rh-B+lGmBL{m*|#p9J6g<<=N`cCoD>^5Yl8n02qjxIPWrjUMGv09 zPY9R4w6AGGGwP+@h8R0#=|qnX9sLNxP@_rX$s1QtY=H}Xkw8T@qKjOR0}u643cXSL zs+C8Efqm3Rtrq80u3Y&h*W#h8ikj;RwbD%*E@;A*bk79SgLj))X^HqO)uNXM$~N)e zC4IcV4%VUTDtnY`3=?=RWG7`;=CEODt zmG2yTD)?HLml`=t1`L&;hAmiYuz~r&c*Z0Y4$~+GZkDU|+NsYF-lMV{(wQ|4>a7h3frX@rBG4a$fsz2JIaBX$+Vz>}D&iloR9<2NJpqKm=tKlVWo9($ zPRgq*g+oP2$Ei5oRiK%j46{9P7x-K27a%#vF3(lMZ5w8l4sac0q2DWW>yRG)a3lFy zw!rgtvFJz7tmg67lD4{!7K$}1wk!@*oNfjD{q+5);MKT&@dxUCrC7PyY|SU0m0#0y zS3^=`FAB=>xQeNC&;FEr8tyOKQAwhn9@|rArXI;Jrrw1aZ&!o;1;*C+3cvdc97VWA zl5c4;+Q(XFH6jJyi0Ug)1nWkl{M9XGF1&sIR&VUZ)@E{9enWCfrP@l|{Uv8bI{1x& zfu!>ZS(qS0BPVU_cE}g2uI;c77bDiKJ{EXu=H+*8jT^sX&0`OJYb(tb@}fm+94Xu# zLsL1rfhP7hA|=v_^)>}v-nner_IOSRZQnAbtJAzt7K@UOs6{O+;01ELnS0{0u{H%; zl)9xEFWr1@?0+B%_v_sX01Q6monDy zpQ6YM$v)#B#Dd&Ke%4JmZj;DTt}@2#|F!w~!Ck5Cnbkhy<4s{W!u{lyy1Y4?TOkr< zYdH2fDx3q~C6esT-GDlHyHxqxZoHA^GJ#oinq|F-KaB2Gb2FeGa5fe5`s1NCS3AY|FF`Ui#Dk zGp*zxKSrOQ3sqK#BVK<{7@2(5{P$Sj7pc!|^et0iQ2R)u3t@CR5bdEb_SE}l3ftaA99BpHoo(q3qIkqi z?;({QEB!_Y_x=Gu4Y6RFC|^&zGc{vk^H1_toU`l4cj1#KgVs)TUSC?ogpu!;OnWuZ`k6fUL{jxS6=;G-U_-#%Zjor}(q}fBiAE9fk9ww% z&yi^h&3*j!%lQ3dbcS^>{o&S}ot(_zwm*Xyv(nu&UdyVV3Fy#=FDMI|rWU`m4;nNo z)!X_|&+Z(kJp0QH;{OnlZB^QOI9a4k{{2jzn@eeYj4NY0!S$q556-PjlWGTbmo3d4 zxMz8!LL9RiBDPSuJ&f<%fgBw_>3;{dpN;&Cx(M~kVF>zwZFJNN=si~|ybYzLeA02- z>0j)NS)XT-lM&gmZ7=>k^atBleqEC_OVi-S-h%yDV}CBK>9!B)@)r;fA-iy)m-Ie< zhO$qazTaw4Wm1b`!cJ%*b?GQ^W1r_CDuiV!kKbL0CaxHg@1})^c51@j-7Ij%h1Kn?hs6BO5R}?5-h`lv6#2i6=mdoKGM4==~N-#3axPheCFhmxp#UGNH%~AnMHOR+tNB2yJq|{l%$O|Q#{3K6k=%mm=t>CyYDrlQwEpWnAGBI;?xPp=NcLLjtZO4vU zMF#i%5RKr^L(Snxq|7LV<6ttP8sR^0?>+?@mRa+9dLWlySOJIELuPSL8eGn^nTPs@ zae|jqnpF`ZvzpMk?g*^R@zn$@jXy?3IE5{bUc>b=+K1PM_>bkTc{l88>U zAViWYcmDUjxHI>2zVm&a7tcBKoS8Fo=FCwtagr8=p&$k*&Esh^02cf5@Bg1o_LqNk z|87DGgVJ!{#!n{j$R{eigQIb-bzW=&PH;B>?P1_3K586zq-NTlvqop@LYP0U+AJp? z;2s={7)3%r5i00#J{OIys4AwJ#*xRV+D{3D_7~(>mqMalR8yT01<6=34y)vSIRjPR zeN`O@Hd|+IS}r;(hqvs9Rw~Ub4|K(8R(WomksRm{CJ*6Fbt%Fe1f`wZaKvjty8B5A zOXBw`N}>3o<>gsAa5ueXc`YcpNKCQ3@~nX~rCxbVrM!-d4lvPxH}z7~V4VNpdHJPU zDNwb${F#0(-+iCdiTaUxxO11{x=aA4e~sTW_0I?^gL3}G{{yHjmOo1E8-FM5RoW-Q z%B!koc^Zhl=)17A;iB_+sI9t~t-*BFe&r>TSWphzOaw%kMv)0XSb{r;Q?3P_rAoRK z1wf~Zh9eDQ3;1u-X0?ixA=&aYvj&hHcV(hpYmvEGXpWfOr=S8%Ij%-=IgrU3YK6^# z&H}JbE}{f9h*#Y?cH~v1fOv8!uml}$M*~sCV9>>yBi&Q4yfk{||CNok-6 zAb8~jWxC%F`M>t32qF{#IHiatsw#ZB(0ZJfR@C2!_|&iJ-*-iUF%?|8GT}LN%b%_B z!)UNa!!jJ{oKM>^3~1*O<-~_LSz!YdnslE;hQ-iX5571pG}PwgAjYcsQmi?mM`^Ko zIE~e2D#ilcEyNXa(%c+PTt|e_xOEYQ9j-^m6T8(t$C5otv0wp?Y-fJzl1jsi{H|L+ zcFSl!zjI1LRG#|_i}<(N#m7fwU|@-oLylrLRmSNRLf}l)fFRuE=uD(2JhlV-ln1C7 zm4#vmCy3;WhD4U6fsJ#ROq`>Vk~9^w0M20QN}@3J)aFP(Ad_?in$l6Acq0N{7rF_?7NgX zp@QO*${%<^;Q_sl+|f=|NI}dE<+G&`ClCOSYRNc$G;ZQb`Z2Y(`(oPF{_VsM=cv=~4C>|5txo zF>|0u?i7vxN4zEr&2_E@TT^mDwUvZ(LiAbOO?*R9wO_!4AVRrV`>r$4PXFzhjp? zUI7KAeAhx5I-tKRN5c3GkgL1b(rlC`edb>qn$D({&p#}z#|0-E4y=9swYu|&!8r8D z%mKxSa=Q@s$&r{6)vr1c&Ujf=tQ5tvZdu^svhLyH;^6Srq1Wgh{d;s4@@0H~I3Lpf z68bP|$1NMWfj@HCd?Z}P{ovV=@#Yts;A~#)x9q$R@+V76=i`Awd|=l(Mca71in~1* zBBs3qCTZVKAWest&Y-FvilE9PiO00Tq-W3v?7x~j5D8-Xk=3(96wfCBA>jbry8hWs zwhR5oZsy`+Nb|KL3yZ+DA1l`|yjH*~7~RG9*rpLYT;T`G21T)PUBx-vaMLkR-iqDs zF6)5JTWiI}$?>9Ru> z@!|8IBdWc1GX}L_Z8@&Xz~hgrPXyW>P55`$Lc2@@tG$m@MyNhnaXE|=0qlZti159C zasZ$llqz`KJ&hzVcg`D)n{9Ubx@N|UM>)diixmk-^lZoukW#sxrnpq!q*=pNc6!}I z$R|-n3~tb7rVxR|&P~}CqY2``ot3#Kfb?{zw?VjT5yvFZR`SnRpu65rr~l)yHwhFiHe+_ ze#e#nu%6p<4;%W=%jIdUnA*O+zTUpRvtWF%Uy>Ofo=s~)J931FI-<{WMj+;l1<1{Z z_C0@NO@6^D!y>dA^IcDGW<{7&$TR46^eY<5FCOhp)c9+JjXYc&Siecj!}L9q%~{ccA2^Ey$mS>PK6qd8e)ah3 zW`H03KZvK)>+v_x!Mo?(&7aK^^G?vF+%p8hO0#N4;?TJ>-9YEPYx4*Ul%?Lkqr1otPy z#Asov*0|ATAUCm6iO^>!5&LtS8UrtJ&S=XN$>L$0s}q0JK`G13{3?!=(%?X~@;`Z0 z`%#%$7|HH+`y`Ec>%cwfw3*Xp@c%(ccjQjyiG?zev$|6Rt{a1p>CrQgOLM#PmxRR% zmI1TX=jj4+5JGf)-(TMmAPtpk#3tl>VUJakyMivS14w<9WaoXnBsmUo zR7)Shk<*R)?mBW<#fGyAd^mS=zdO$tSiOJKg1K>_rf7#0KtEUF?MhN%$Rb@Fby$an z&$Aa#@0J>`E3di@vZGQQx{>ZGx-oIP7>`GWR#}dtcd@JE+FfENJxsW%!6y#`)=g{;lvb#Z@@%^ zD-K2N2ctR9=T5^jUc^^-O}=+c&wk6^(&qZ(XZ-xw*AKZK?et}Sj;FvG;`41SK&n3C z86aj%IDu1i)OZ-dembt{VrE<4rkI0R5tDQIVmhPe#+bQpzbXk3;~wppQ4&sp}3<}ZbK=gRk?_-r^Y$oD1wlCKtR;1Ru0 z`gwv`KNe;s_^GJuV##_Yx@zRhY)IrCH#n5qv&F@0<2J6F%`Am*R2*@h2Owx+?w(z612|uqYa%F2Qv)QQqd5jnb10{B?2xV79A;1=f$Yb z%}Yoi^{g7Qqot8u?@Zm3U8FWJRLq*&h6X%epk6W&;5GG1phzL#h#V*el#rYE$BF;U8Ol?cyp)Jz~%WM+Oiu`xukto3^Yk7hhHsF1*oBH%)jna5a5y~|4 zCa}qO#bhGF2=}L|x)bsK$uTRz3Jy6=NT{gj##%dFG7BBbM!trDGhkC>bt9u`vdOyl zO3O+WdFd+lf)@$QNa~ZvUJ+RPd|&1^I&9z?w8`QW&NCb|`gUoMmZCCFW+vZg72?e> zDBD&$%+buhAxQKCLFgpCWZwKfr)uKBh9(THV><=8?YtCBbqsU-Al&~WJ%x{_K|`?jManb6i6scHXKMuOVWjw5OLMc|r&HfH56>;~*6*bTcXSrpt#%83 znE68ile6%5{YRP&dI#j*qzxSF5_o@kZ;yVUU_LCN1 zACH(SbO+4E$*rjU#F_4F3oP}nkP;% zlPa*|9yXNzmSTSj+TFo4Uc{r85$n=L>48WR9;@w zi9+%6aFew!Jm?&*bNqHc&O{pNr^D@*oEuI(PemGnF{uxM9OAfhG>kM`%#KH>m&JMr4hql5hJaQ)M$xl@Hjd33Fr-b zfPevG25UYPgu}22$^*gYjHDyBYOp2=i=-pKivt#^gJ?J@%DTPDP(XERdoY{~WbGO0 z01;K{Y~0J) zIYs|#Dj*CtKdczlGHkU)0BW$Ia7$*@pjKC&1)|fy(?o{V{bahYV)H)(_&!k!h6#p| z74;hPRSJ;6G{73-8g3El_#{NR>a=0%@8Y@CXX-fg@rm?HqV5BSE=DnpO9>i#pWf@f z;$P7}S9H^Z!$hCZDk{bLddEJT;o~h&Rwi1;BeKFXD+{+F$^d1+QFgR^hAB^!qLPG2 z=t*YE!L_M)B9VxPH7gQU9gUNZss@li2eierXUj~t_&hs$%Ehwsh% z-fY7UQEceQ-rv2Y=K|E&ug)hZ;rSEjIGxSwFUKKwa1OpusVgLV5ACaHLa!-0rmmWGZb87V5tH!sQ|{YVSSZ}^&r zkBXm~7!Fr?sEvfFQ<15^R-pqjTEk;SG|4mDZJvcI`Se#Rp*U$$*#B&%4iT!)GYQOk zLAWvRwp$-J&npNxeBIjn-l1G;qj4NGS$g{Oq}0MaJJ%cuZ+2^`Oz?X2IPKA;-iC@1 z>QNRh9!SxN0B6vdh{#;h!2u^b!NKa0rhYoVh^9`}z?jE}!;-QO6rgQ9T0NBzB`@o( zu!M0W(s{fwL_?C{9OV{g5hfFPf?Z`k@OJb-ptj%Aoiu&z2olN|wI%zK#W)`KDbJQs zgq1ZJ`M=?ZsXSg!S~Rz6b&GIgi)5UB(fK(q;94#xgtF#K?HB*H&2O-Yh)f5Kwe78P ziG!ToHV>h})X0^b9$kjkmdk}zBh+(80ih>NnC&AkmAWUk?xYfuroKaC6|5H>k8Bnm z3ZcB>q8VxyDa5loYoWO@gls2s1OzYNzOSjj6I}RxckHmX>eIgE+vk5gb|n>zJCl@; zGsdcfKJ*t!@t1^)JSdarI?a&lE7D#|GU}dw+))l$*;(EGgo}gAvWKdy-dFU0#IWDk z!z>EwrwuO})k{5jOt)=G6o8m&pX9~h+|zH<92PYR~< zjrs06WFuh&%&!g&ll2UJDoV}mQV�tsGr!MB8WIM{ zPUW6OU}O28U~4q8N@Y-y=Z(QexFb9O@9-)ut9Ern|b01`NxsbA=A4S?&+>_`SV)5!8_FhR2$( z^ZYp1!91fk&8Qm3#>W-6?dbtiErt({;w*K~O$F*Ua~0SXCRiKm_dIHhR(pAuH#b*p z=C7|whY1>7B8WugoDPx&-!-zR#cu?;*|H4h?J^AZ_g+`ExFwg>M6yLP9W+DD46UO% zt4frr80(p1#G!{KV`F1eM?frvW|{KaFLer?nXBARxBjETO>M??jM_?}`Gn355U4Xx&CR)Z9$4?-8o9E@ z9NEW^qQNf9qt?Ugk(!&R5TI37`!HwdPgIW|&6*?S@@h2Ka$!y1e=C1JtLL_Oe!(J8 z?t3?J0Up0BqQgsM~FxAn%$dDerk0NGn1QgKGoLV@oh-g zGvYb5QP0w!(^FU^<0Se9V!-nauL+A{=g7)RH=RWl-eTJ@bz zZcYozta@H(Y;YK>Uzp3^P$8`qrBIFf#(#BQxW|7+VplP1fsu8RJ7!4-Oda*n1uzHD zw;63wO{^+cX$l;Ud4`dwW})*pdx0tYWstMY)pBFMH+>?ndp~%m;74g^$Td^h+3Q4Gwr*UVafR{v=PZ!zXHOQ#iP6_!=pc%-#y60 zfw<`AV_0+wk9IjR4m<9aF4auuhFm$J{;NczkcwD@0ER&$!D_br)9k5<3it%{nShaa8c-i6g zLOwa3i4*(qlSG8NL@$CosgFJfW}^kcWP4@1zd?O*MDNTC?8xS7&1gyW3WrM(HNw~B zfqaGBPpFjwsnXd_1IWWYemyLc>O8#}ea80{onGY8dMIp^54W~&IN_{J2Iwo0u$zHjPs zQP$d>Nx!;K;L5rT^;9;hlt2a7r!n<>3GcD`W*I6VwsTTlcW#Ssncep7Iykvz+&+a8 zDA7ylirPnQ&!`S4e$db?fy<7l~rY-}RF9X6~_ zqji_#jNL!pC(5&tP6`?_l1C!b9SB6;KYjCR&^RmKjqI2Ig~(Wqz<7#VK{Zsy=Mmuu z%#Q61;pV=ZEB^-t3Wo{YPzO7ro#RDPd@WwZ4CWU2vLpoZTZdi?wAX-AmtU???DKc{ z<0O|9@YCBrpyT(4tciRX&`DBAfyJvEqVJ_uFGE+L_5@Yx7pGeZCI{Pt9+{>^c{H)g zL1f@(@B{6$FB*_N4^pr~pe|i^X!hPED6p-r=E(%ZK=&Yhoqk@?z;@%&#;GGQ;bgFO zwRes5^CmSkq-3BGw*Tx}isDvFy4y%Ogni^^7b$T{CZs4kKJ&>~#K>?c<66B-<{c2AOk2 z`6sj-#k)nNfVa@MfmogYoa5@f^FaPzwIqhbLkiT&&b_ILXRDZ1ylpffRIGDs9+Qu4 zXN6Mg++gqB{V_9#0iccHzK>w}NcfMzo*<}Zy6n2e)8LP2@xa`<6pzy$eL*%ck}M~% zHw&$H3B@N_(9zqD%gE1%oSzc8B1T}#>&rtGjI*z4x-ffG6T$gAH~RChHI6M!$gQr6 z8vJE@&L3Y?xaW6<`;_qJR@8Lt><#)Z%Lek2X4of!DZGPDJOWzAynT|a<E|^_e&VagKfleRJ`!!5*vHFC?hBrGn@;)U!;^Qb8J;Iv8qx3ttNSiKRmP@IWBO@V9Z~G7Fq>#5i1BB4dwU>!VT8Pbzg6N{J$P zz{9aV93u$PnN~~GjRbhSY6yT&oa{s;|W0xXn&%n5I=?75pb zxyP(X?BVT`*-#ga$7EEp7KPRa@HOs6W;90FVP*uWmw_-rs;bjOyS86fzXG4LC&eIPCf7><=X4hw&+9i#*gio31AAa5Y$gqUVo?d;=*gw0cei#oY z9u4S0&-s+tfPtKYU##)$`*Bq01;@rx9*9*}SH`w2fweTMDL|gEEAV&q3KD8!^Y#a? F{uf%Vxd{LO diff --git a/R/visualize-distributions.R b/R/visualize-distributions.R index b223c5e..befd8ee 100644 --- a/R/visualize-distributions.R +++ b/R/visualize-distributions.R @@ -4,7 +4,6 @@ #' and quantile functions. In addition, mean and variance functions are #' present. Other descriptors also exist and are documented below. #' -#' #' @format #' Distributions are loaded with the following format: #' \tabular{ll}{ @@ -57,7 +56,6 @@ #' @author James Balamuta #' @keywords datasets internal #' @examples -#' #' visualize.distributions = list( #' 'beta' = list( #' type = "continuous", diff --git a/R/visualize.continuous.R b/R/visualize.continuous.R index 55cd107..b62b01b 100644 --- a/R/visualize.continuous.R +++ b/R/visualize.continuous.R @@ -1,36 +1,30 @@ #' Graphing function for Continuous Distributions. #' #' Handles how continuous distributions are graphed. Users should not use this -#' function. Instead, users should use [visualize.it()]. +#' function. Instead, users should use [`visualize.it()`]. #' -#' -#' @param dist contains the distribution from -#' [visualize.distributions()]. -#' @param stat a statistic to obtain the probability from. When using the -#' "bounded" condition, you must supply the parameter as `stat = -#' c(lower_bound, upper_bound)`. Otherwise, a simple `stat = -#' desired_point` will suffice. +#' @param dist contains a supported continuos distribution shortname. +#' @param stat a statistic to obtain the probability from. When using the +#' "bounded" condition, you must supply the parameter as +#' `stat = c(lower_bound, upper_bound)`. Otherwise, a simple +#' `stat = desired_point` will suffice. #' @param params A list that must contain the necessary parameters for each -#' distribution. For example, `params = list(mu = 1, sd = 1)` would be for -#' a normal distribution with mean 1 and standard deviation 1. If you are not -#' aware of the parameters for the distribution, consider using the -#' `visualize.`*dist_name* functions listed under the "See Also" -#' section. +#' distribution. For example, `params = list(mu = 1, sd = 1)` +#' would be for a normal distribution with mean 1 and standard +#' deviation 1. If you are not aware of the parameters for the +#' distribution, consider using the `visualize.`*dist_name* +#' functions listed under the "See Also" section. #' @param section Select how you want the statistic(s) evaluated via -#' `section=` either `"lower"`,`"bounded"`, `"upper"`, -#' or`"tails"`. -#' @author James Balamuta -#' @seealso [visualize.it()], [visualize.beta()], -#' [visualize.chisq()], [visualize.exp()], -#' [visualize.gamma()], [visualize.norm()], -#' [visualize.unif()], [visualize.cauchy()]\*, -#' [visualize.f()]\*, [visualize.lnorm()]\*, -#' [visualize.t()]\*, [visualize.wilcox()]\*, -#' [visualize.logis()]\*. \cr \* = added in v2.0. +#' `section=` either `"lower"`,`"bounded"`, `"upper"`, or`"tails"` +#' @author +#' James Balamuta +#' @seealso +#' [visualize.it()], [visualize.beta()], [visualize.chisq()], [visualize.exp()], +#' [visualize.gamma()], [visualize.norm()], [visualize.unif()], [visualize.cauchy()], +#' [visualize.f()], [visualize.lnorm()], [visualize.t()], [visualize.wilcox()], +#' [visualize.logis()]. #' @export -#' @keywords visualize #' @examples -#' #' # Function does not have dist look up, must go through visualize.it #' visualize.it(dist='norm', stat = c(0,1), params = list(mu = 1, sd = 1), section = "bounded") #' @@ -79,7 +73,7 @@ function(dist, stat = c(0,1), params, section = "lower"){ #Creates the center title by concatenating various bits of information. #This may need to be optimized at a later time. graphmain = paste(dist$name," \n") - for(i in 1:length(params)){ + for(i in seq_along(params)){ graphmain = paste(graphmain, dist$varsymbols[i]," = ",params[[i]], " ") } @@ -100,7 +94,7 @@ function(dist, stat = c(0,1), params, section = "lower"){ c(0,dist$density(path,params),0), col="Blue", lty=line_style, lwd=line_width, border="Orange") prob = dist$probability(stat,params) - subheader = paste("P( ",dist$variable," \u2264 ",stat, ") = ", signif(prob, digits=3)) + subheader = paste("P( ",dist$variable," <= ",stat, ") = ", signif(prob, digits=3)) } else if(section == "bounded"){ start = stat[[1]]; end = stat[[2]]; @@ -109,7 +103,7 @@ function(dist, stat = c(0,1), params, section = "lower"){ c(0,dist$density(path,params),0), col="Blue", lty=line_style, lwd=line_width, border="Orange"); prob = dist$probability(end,params) - dist$probability(start,params) - subheader = paste("P(",start," \u2264 ",dist$variable," \u2264 ",end,") =", signif(prob, digits=3)) + subheader = paste("P(",start," <= ",dist$variable," <= ",end,") =", signif(prob, digits=3)) } else if(section == "upper"){ if(ub < stat){ @@ -120,7 +114,7 @@ function(dist, stat = c(0,1), params, section = "lower"){ c(0,dist$density(path,params),0), col="Blue", lty=line_style, lwd=line_width, border="Orange") prob = 1-dist$probability(stat,params) - subheader = paste("P( ",dist$variable," \u2265 ", stat, " ) =", signif(prob, digits=3)) + subheader = paste("P( ",dist$variable," >= ", stat, " ) =", signif(prob, digits=3)) } else if(section == "tails"){ lower_stat = stat[[1]];upper_stat=stat[[2]]; @@ -166,5 +160,5 @@ function(dist, stat = c(0,1), params, section = "lower"){ axis(1,at=stat[[2]],labels=bquote(eta[.(stat[[2]])]), line=.69) } mtext(subheader,3) - title(sub = paste("\u03BC = ", mean,", \u03C3\u00B2 = ", var)) + title(sub = bquote(mu ~ "=" ~ .(mean) ~ ", " ~ sigma^2 ~ "=" ~ .(var))) } diff --git a/R/visualize.discrete.R b/R/visualize.discrete.R index 627ceb2..5868918 100644 --- a/R/visualize.discrete.R +++ b/R/visualize.discrete.R @@ -53,7 +53,7 @@ function(dist, stat = c(0,1), params, section = "lower", strict){ #Creates Graph Title graphmain = paste(dist$name," \n") - for(i in 1:length(params)){ + for(i in seq_along(params)){ graphmain = paste(graphmain, dist$varsymbols[i]," = ",params[[i]], " ") } @@ -70,7 +70,7 @@ function(dist, stat = c(0,1), params, section = "lower", strict){ barplot(y, ylim = c(0, ymax), xlab = "Values", ylab = "Probability", names.arg = x, main=graphmain, col=c(rep("orange",i),rep("white",j)), density=c(rep(3,i),rep(0,j)), add = TRUE) prob = dist$probability(stat-1*(strict[[1]] == 1),params) - ineqsym = if(strict[[1]]==0){" \u2264 "}else{" < "} + ineqsym = if(strict[[1]]==0){" <= "}else{" < "} subheader = paste("P( ",dist$variable, ineqsym ,stat, ") = ", signif(prob, digits=3)) } else if(section == "bounded"){ @@ -105,8 +105,8 @@ function(dist, stat = c(0,1), params, section = "lower", strict){ #Generate subtitle prob = dist$probability(disupper-1*(strict[[2]]==1),params) - dist$probability(dislower-1*(strict[[1]]==0),params) if(prob < 0) {prob = 0} - low_ineq = if(strict[[1]]==0){" \u2264 "}else{" < "} - upper_ineq = if(strict[[2]]==0){" \u2264 "}else{" < "} + low_ineq = if(strict[[1]]==0){" <= "}else{" < "} + upper_ineq = if(strict[[2]]==0){" <= "}else{" < "} subheader = paste("P(",dislower,low_ineq,dist$variable,upper_ineq,disupper,") =", signif(prob, digits=3)) } else if(section == "upper"){ @@ -160,8 +160,8 @@ function(dist, stat = c(0,1), params, section = "lower", strict){ #handle legend information prob = 1-dist$probability(upper_stat-1*(!upper_strict),params)+dist$probability(lower_stat-1*(lower_strict),params) - upper_ineqsym = if(!upper_strict){" \u2265 "}else{" > "} - lower_ineqsym = if(!lower_strict){" \u2264 "}else{" < "} + upper_ineqsym = if(!upper_strict){" >= "}else{" > "} + lower_ineqsym = if(!lower_strict){" <= "}else{" < "} subheader = paste("P( ",dist$variable, lower_ineqsym ,lower_stat, " ) + P( ",dist$variable, upper_ineqsym, upper_stat, " ) =", signif(prob, digits=3)) } else{ stop("Section not specified. Please choose either lower, bounded, tails, or upper.") } @@ -175,5 +175,5 @@ function(dist, stat = c(0,1), params, section = "lower", strict){ } mtext(subheader,3) - title(sub = paste("\u03BC = ", signif(mean, digits=3),", \u03C3\u00B2 = ",signif(var, digits=3))) + title(sub = bquote(mu ~ "=" ~ .(signif(mean, digits=3)) ~ ", " ~ sigma^2 ~ "=" ~ .(signif(var, digits=3))) ) } diff --git a/README.Rmd b/README.Rmd index f294296..da944d6 100644 --- a/README.Rmd +++ b/README.Rmd @@ -16,7 +16,7 @@ knitr::opts_chunk$set( # visualize -[![Travis-CI Build Status](https://travis-ci.org/coatless/visualize.svg?branch=master)](https://travis-ci.org/coatless/visualize) +[![R-CMD-check](https://github.com/coatless-rpkg/visualize/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/coatless-rpkg/visualize/actions/workflows/R-CMD-check.yaml) [![CRAN RStudio mirror downloads](http://cranlogs.r-pkg.org/badges/visualize)](http://www.r-pkg.org/pkg/visualize) [![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/visualize)](https://cran.r-project.org/package=visualize) diff --git a/README.md b/README.md index 0023964..dc02810 100644 --- a/README.md +++ b/README.md @@ -5,10 +5,10 @@ -[![Travis-CI Build -Status](https://travis-ci.org/coatless/visualize.svg?branch=master)](https://travis-ci.org/coatless/visualize) +[![R-CMD-check](https://github.com/coatless-rpkg/visualize/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/coatless-rpkg/visualize/actions/workflows/R-CMD-check.yaml) [![CRAN RStudio mirror -downloads](http://cranlogs.r-pkg.org/badges/visualize)](http://www.r-pkg.org/pkg/visualize)[![CRAN\_Status\_Badge](http://www.r-pkg.org/badges/version/visualize)](https://cran.r-project.org/package=visualize) +downloads](http://cranlogs.r-pkg.org/badges/visualize)](http://www.r-pkg.org/pkg/visualize) +[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/visualize)](https://cran.r-project.org/package=visualize) The goal of visualize is to graph the pdf or pmf and highlight what area diff --git a/_pkgdown.yml b/_pkgdown.yml new file mode 100644 index 0000000..7411573 --- /dev/null +++ b/_pkgdown.yml @@ -0,0 +1,4 @@ +url: http://r-pkg.thecoatlessprofessor.com/visualize/ +template: + bootstrap: 5 + diff --git a/data-raw/visualize.distributions.R b/data-raw/visualize.distributions.R index b94294f..1bee73f 100644 --- a/data-raw/visualize.distributions.R +++ b/data-raw/visualize.distributions.R @@ -7,7 +7,7 @@ visualize.distributions = list( type = "continuous", name = "Beta Distribution", variable = "b", - varsymbols = c("\u03B1","\u03B2"), + varsymbols = c("alpha","beta"), params = 2, init = function(params, ...) { shape1 = params[[1]]; shape2 = params[[2]] @@ -32,7 +32,7 @@ visualize.distributions = list( chisq = list( type = "continuous", name = "Chi-square Distribution", - variable = "\u03A7\u00B2", + variable = "chi^2", varsymbols = c("r"), params = 1, init = function(params, ...) { @@ -60,7 +60,7 @@ visualize.distributions = list( type = "continuous", name = "Exponential Distribution", variable = "e", - varsymbols = c("\u03B8"), + varsymbols = c("theta"), params = 1, init = function(params, ...) { theta = params[[1]] @@ -87,7 +87,7 @@ visualize.distributions = list( type = "continuous", name = "Gamma Distribution", variable = "g", - varsymbols = c("\u03B1","\u03B8"), + varsymbols = c("alpha","theta"), params = 2, init = function(params, ...) { alpha = params[[1]]; theta = params[[2]] @@ -114,7 +114,7 @@ visualize.distributions = list( type = "continuous", name = "Normal Distribution", variable = "z", - varsymbols = c("\u03BC","\u03C3"), + varsymbols = c("mu","sigma"), params = 2, init = function(params, ...) { if(params[[2]] < 0) stop("Error: Need standard deviation >= 0") @@ -190,7 +190,7 @@ visualize.distributions = list( type = "continuous", name = "Log Normal Distribution", variable = "log(z)", - varsymbols = c("\u03BC","\u03C3"), + varsymbols = c("mu","sigma"), params = 2, init = function(params, ...) { if(params[[2]]<0) stop("Error: Standard Deviation is < 0!") @@ -433,7 +433,7 @@ visualize.distributions = list( type = "discrete", name = "Poisson Distribution", variable = "p", - varsymbols = c("\u03BB"), + varsymbols = c("lambda"), params = 1, init = function(params, ...) { lambda = params[[1]] @@ -463,4 +463,4 @@ class(visualize.distributions) = "distributions" # use sysdata -devtools::use_data(visualize.distributions, internal = TRUE, overwrite = TRUE) +usethis::use_data(visualize.distributions, internal = TRUE, overwrite = TRUE) diff --git a/man/visualize-package.Rd b/man/visualize-package.Rd index 1eec404..e7da309 100644 --- a/man/visualize-package.Rd +++ b/man/visualize-package.Rd @@ -6,11 +6,7 @@ \alias{visualize-package} \title{visualize: Graph Probability Distributions with User Supplied Parameters and Statistics} \description{ -Graphs the pdf or pmf and highlights what area or probability is - present in user defined locations. Visualize is able to provide lower tail, - bounded, upper tail, and two tail calculations. Supports strict and equal - to inequalities. Also provided on the graph is the mean and variance of - the distribution. +Graphs the pdf or pmf and highlights what area or probability is present in user defined locations. Visualize is able to provide lower tail, bounded, upper tail, and two tail calculations. Supports strict and equal to inequalities. Also provided on the graph is the mean and variance of the distribution. } \examples{ @@ -34,13 +30,14 @@ visualize.gamma(stat = 2, alpha = 2, theta = 1, section="upper") \seealso{ Useful links: \itemize{ - \item \url{https://github.com/coatless/visualize} - \item \url{http://thecoatlessprofessor.com/projects/visualize/} - \item Report bugs at \url{https://github.com/coatless/visualize/issues} + \item \url{https://github.com/coatless-rpkg/visualize} + \item \url{https://thecoatlessprofessor.com/projects/visualize/} + \item \url{https://r-pkg.thecoatlessprofessor.com/visualize/} + \item Report bugs at \url{https://github.com/coatless-rpkg/visualize/issues} } } \author{ -\strong{Maintainer}: James Balamuta \email{james.balamuta@gmail.com} (0000-0003-2826-8458) [copyright holder] +\strong{Maintainer}: James Balamuta \email{james.balamuta@gmail.com} (\href{https://orcid.org/0000-0003-2826-8458}{ORCID}) [copyright holder] } diff --git a/man/visualize.beta.Rd b/man/visualize.beta.Rd index cc57ff8..4a97d6c 100644 --- a/man/visualize.beta.Rd +++ b/man/visualize.beta.Rd @@ -18,7 +18,7 @@ implementation of the beta distribution. \code{alpha} must be greater than implementation of the beta distribution. \code{beta} must be greater than 0.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.binom.Rd b/man/visualize.binom.Rd index 7f25082..6dc05d9 100644 --- a/man/visualize.binom.Rd +++ b/man/visualize.binom.Rd @@ -4,8 +4,13 @@ \alias{visualize.binom} \title{Visualize Binomial Distribution} \usage{ -visualize.binom(stat = 1, size = 3, prob = 0.5, section = "lower", - strict = FALSE) +visualize.binom( + stat = 1, + size = 3, + prob = 0.5, + section = "lower", + strict = FALSE +) } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -16,11 +21,11 @@ visualize.binom(stat = 1, size = 3, prob = 0.5, section = "lower", \item{prob}{probability of picking object.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.cauchy.Rd b/man/visualize.cauchy.Rd index 0d965de..2a6d375 100644 --- a/man/visualize.cauchy.Rd +++ b/man/visualize.cauchy.Rd @@ -4,8 +4,7 @@ \alias{visualize.cauchy} \title{Visualize Cauchy Distribution} \usage{ -visualize.cauchy(stat = 1, location = 2, scale = 1, - section = "lower") +visualize.cauchy(stat = 1, location = 2, scale = 1, section = "lower") } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -16,7 +15,7 @@ visualize.cauchy(stat = 1, location = 2, scale = 1, \item{scale}{scale parameter} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.chisq.Rd b/man/visualize.chisq.Rd index cb8b678..e3f8bad 100644 --- a/man/visualize.chisq.Rd +++ b/man/visualize.chisq.Rd @@ -13,7 +13,7 @@ visualize.chisq(stat = 1, df = 3, section = "lower") \item{df}{degrees of freedom of Chi-squared distribution.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.continuous.Rd b/man/visualize.continuous.Rd index c073925..b4d6e26 100644 --- a/man/visualize.continuous.Rd +++ b/man/visualize.continuous.Rd @@ -7,43 +7,38 @@ visualize.continuous(dist, stat = c(0, 1), params, section = "lower") } \arguments{ -\item{dist}{contains the distribution from -\code{\link[=visualize.distributions]{visualize.distributions()}}.} +\item{dist}{contains a supported continuos distribution shortname.} \item{stat}{a statistic to obtain the probability from. When using the -"bounded" condition, you must supply the parameter as \code{stat = c(lower_bound, upper_bound)}. Otherwise, a simple \code{stat = desired_point} will suffice.} +"bounded" condition, you must supply the parameter as +\code{stat = c(lower_bound, upper_bound)}. Otherwise, a simple +\code{stat = desired_point} will suffice.} \item{params}{A list that must contain the necessary parameters for each -distribution. For example, \code{params = list(mu = 1, sd = 1)} would be for -a normal distribution with mean 1 and standard deviation 1. If you are not -aware of the parameters for the distribution, consider using the -\code{visualize.}\emph{dist_name} functions listed under the "See Also" -section.} +distribution. For example, \code{params = list(mu = 1, sd = 1)} +would be for a normal distribution with mean 1 and standard +deviation 1. If you are not aware of the parameters for the +distribution, consider using the \code{visualize.}\emph{dist_name} +functions listed under the "See Also" section.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, -or\code{"tails"}.} +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}} } \description{ Handles how continuous distributions are graphed. Users should not use this function. Instead, users should use \code{\link[=visualize.it]{visualize.it()}}. } \examples{ - # Function does not have dist look up, must go through visualize.it visualize.it(dist='norm', stat = c(0,1), params = list(mu = 1, sd = 1), section = "bounded") } \seealso{ -\code{\link[=visualize.it]{visualize.it()}}, \code{\link[=visualize.beta]{visualize.beta()}}, -\code{\link[=visualize.chisq]{visualize.chisq()}}, \code{\link[=visualize.exp]{visualize.exp()}}, -\code{\link[=visualize.gamma]{visualize.gamma()}}, \code{\link[=visualize.norm]{visualize.norm()}}, -\code{\link[=visualize.unif]{visualize.unif()}}, \code{\link[=visualize.cauchy]{visualize.cauchy()}}*, -\code{\link[=visualize.f]{visualize.f()}}*, \code{\link[=visualize.lnorm]{visualize.lnorm()}}*, -\code{\link[=visualize.t]{visualize.t()}}*, \code{\link[=visualize.wilcox]{visualize.wilcox()}}*, -\code{\link[=visualize.logis]{visualize.logis()}}*. \cr * = added in v2.0. +\code{\link[=visualize.it]{visualize.it()}}, \code{\link[=visualize.beta]{visualize.beta()}}, \code{\link[=visualize.chisq]{visualize.chisq()}}, \code{\link[=visualize.exp]{visualize.exp()}}, +\code{\link[=visualize.gamma]{visualize.gamma()}}, \code{\link[=visualize.norm]{visualize.norm()}}, \code{\link[=visualize.unif]{visualize.unif()}}, \code{\link[=visualize.cauchy]{visualize.cauchy()}}, +\code{\link[=visualize.f]{visualize.f()}}, \code{\link[=visualize.lnorm]{visualize.lnorm()}}, \code{\link[=visualize.t]{visualize.t()}}, \code{\link[=visualize.wilcox]{visualize.wilcox()}}, +\code{\link[=visualize.logis]{visualize.logis()}}. } \author{ James Balamuta } -\keyword{visualize} diff --git a/man/visualize.discrete.Rd b/man/visualize.discrete.Rd index d207d4c..9d2a2e0 100644 --- a/man/visualize.discrete.Rd +++ b/man/visualize.discrete.Rd @@ -4,8 +4,7 @@ \alias{visualize.discrete} \title{Graphing function for Discrete Distributions.} \usage{ -visualize.discrete(dist, stat = c(0, 1), params, section = "lower", - strict) +visualize.discrete(dist, stat = c(0, 1), params, section = "lower", strict) } \arguments{ \item{dist}{contains the distribution from @@ -22,11 +21,11 @@ aware of the parameters for the distribution, consider using the section.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.exp.Rd b/man/visualize.exp.Rd index 8bfd5bf..043cf74 100644 --- a/man/visualize.exp.Rd +++ b/man/visualize.exp.Rd @@ -13,7 +13,7 @@ visualize.exp(stat = 1, theta = 1, section = "lower") \item{theta}{vector of rates} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.f.Rd b/man/visualize.f.Rd index 0c7c753..2bed727 100644 --- a/man/visualize.f.Rd +++ b/man/visualize.f.Rd @@ -15,7 +15,7 @@ visualize.f(stat = 1, df1 = 5, df2 = 4, section = "lower") \item{df2}{Second Degrees of Freedom} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.gamma.Rd b/man/visualize.gamma.Rd index 0d40f0f..072f7d6 100644 --- a/man/visualize.gamma.Rd +++ b/man/visualize.gamma.Rd @@ -19,7 +19,7 @@ implementation of the gamma distribution. \code{theta} must be greater than 0.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \description{ diff --git a/man/visualize.geom.Rd b/man/visualize.geom.Rd index 1cd3971..79ef9a5 100644 --- a/man/visualize.geom.Rd +++ b/man/visualize.geom.Rd @@ -4,8 +4,7 @@ \alias{visualize.geom} \title{Visualize Geometric Distribution} \usage{ -visualize.geom(stat = 1, prob = 0.3, section = "lower", - strict = FALSE) +visualize.geom(stat = 1, prob = 0.3, section = "lower", strict = FALSE) } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -14,11 +13,11 @@ visualize.geom(stat = 1, prob = 0.3, section = "lower", \item{prob}{probability of picking object.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.hyper.Rd b/man/visualize.hyper.Rd index 12fcb9d..3064ff6 100644 --- a/man/visualize.hyper.Rd +++ b/man/visualize.hyper.Rd @@ -4,8 +4,14 @@ \alias{visualize.hyper} \title{Visualize Hypergeometric Distribution} \usage{ -visualize.hyper(stat = 1, m = 5, n = 4, k = 2, section = "lower", - strict = FALSE) +visualize.hyper( + stat = 1, + m = 5, + n = 4, + k = 2, + section = "lower", + strict = FALSE +) } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -18,11 +24,11 @@ visualize.hyper(stat = 1, m = 5, n = 4, k = 2, section = "lower", \item{k}{draw \code{k} balls without replacement.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.it.Rd b/man/visualize.it.Rd index 0436966..b1d5bdd 100644 --- a/man/visualize.it.Rd +++ b/man/visualize.it.Rd @@ -4,8 +4,13 @@ \alias{visualize.it} \title{Visualize's Processing Function} \usage{ -visualize.it(dist = "norm", stat = c(0, 1), params = list(mu = 0, sd - = 1), section = "lower", strict = c(0, 1)) +visualize.it( + dist = "norm", + stat = c(0, 1), + params = list(mu = 0, sd = 1), + section = "lower", + strict = c(0, 1) +) } \arguments{ \item{dist}{a string that should be contain a supported probability @@ -24,11 +29,11 @@ aware of the parameters for the distribution, consider using the \code{visualize.dist} functions listed under the "See Also" section.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for strict OR values =1 or =TRUE for equal to. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.lnorm.Rd b/man/visualize.lnorm.Rd index 6970f25..3541b01 100644 --- a/man/visualize.lnorm.Rd +++ b/man/visualize.lnorm.Rd @@ -4,8 +4,7 @@ \alias{visualize.lnorm} \title{Visualize Log Normal Distribution} \usage{ -visualize.lnorm(stat = 1, meanlog = 3, sdlog = 1, - section = "lower") +visualize.lnorm(stat = 1, meanlog = 3, sdlog = 1, section = "lower") } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -16,7 +15,7 @@ visualize.lnorm(stat = 1, meanlog = 3, sdlog = 1, \item{sdlog}{Standard deviation of the distribution} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.logis.Rd b/man/visualize.logis.Rd index 4bbbdb8..7cd1344 100644 --- a/man/visualize.logis.Rd +++ b/man/visualize.logis.Rd @@ -4,8 +4,7 @@ \alias{visualize.logis} \title{Visualize Logistic distribution} \usage{ -visualize.logis(stat = 1, location = 3, scale = 1, - section = "lower") +visualize.logis(stat = 1, location = 3, scale = 1, section = "lower") } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -16,7 +15,7 @@ visualize.logis(stat = 1, location = 3, scale = 1, \item{scale}{Scale of the distribution.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.nbinom.Rd b/man/visualize.nbinom.Rd index 67be540..236a9dc 100644 --- a/man/visualize.nbinom.Rd +++ b/man/visualize.nbinom.Rd @@ -4,8 +4,13 @@ \alias{visualize.nbinom} \title{Visualize Negative Binomial Distribution} \usage{ -visualize.nbinom(stat = 1, size = 6, prob = 0.5, section = "lower", - strict = FALSE) +visualize.nbinom( + stat = 1, + size = 6, + prob = 0.5, + section = "lower", + strict = FALSE +) } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -16,11 +21,11 @@ visualize.nbinom(stat = 1, size = 6, prob = 0.5, section = "lower", \item{prob}{probability of picking object.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or = FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.norm.Rd b/man/visualize.norm.Rd index f399720..5b07169 100644 --- a/man/visualize.norm.Rd +++ b/man/visualize.norm.Rd @@ -15,7 +15,7 @@ visualize.norm(stat = 1, mu = 0, sd = 1, section = "lower") \item{sd}{standard deviation of the Normal Distribution.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \description{ diff --git a/man/visualize.pois.Rd b/man/visualize.pois.Rd index f11298f..9739db5 100644 --- a/man/visualize.pois.Rd +++ b/man/visualize.pois.Rd @@ -4,8 +4,7 @@ \alias{visualize.pois} \title{Visualize Poisson Distribution} \usage{ -visualize.pois(stat = 1, lambda = 3.5, section = "lower", - strict = FALSE) +visualize.pois(stat = 1, lambda = 3.5, section = "lower", strict = FALSE) } \arguments{ \item{stat}{a statistic to obtain the probability from. When using the @@ -14,11 +13,11 @@ visualize.pois(stat = 1, lambda = 3.5, section = "lower", \item{lambda}{lambda value of the Poisson Distribution.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} \item{strict}{Determines whether the probability will be generated as a -strict (<, >) or equal to (<=, >=) inequality. \code{strict=} requires +strict (<, >) or equal to (<=, >=) inequality. \verb{strict=} requires either values = 0 or =FALSE for equal to OR values =1 or =TRUE for strict. For bounded condition use: \code{strict=c(0,1)} or \code{strict=c(FALSE,TRUE)}.} diff --git a/man/visualize.t.Rd b/man/visualize.t.Rd index e2bd508..24e9ab6 100644 --- a/man/visualize.t.Rd +++ b/man/visualize.t.Rd @@ -13,7 +13,7 @@ visualize.t(stat = 1, df = 3, section = "lower") \item{df}{Degrees of freedom} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{ diff --git a/man/visualize.unif.Rd b/man/visualize.unif.Rd index 497db03..fcf5c34 100644 --- a/man/visualize.unif.Rd +++ b/man/visualize.unif.Rd @@ -15,7 +15,7 @@ visualize.unif(stat = 1, a = 0, b = 1, section = "lower") \item{b}{end point. Note: \code{b} > \code{a}} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \description{ diff --git a/man/visualize.wilcox.Rd b/man/visualize.wilcox.Rd index 15eb823..e73f529 100644 --- a/man/visualize.wilcox.Rd +++ b/man/visualize.wilcox.Rd @@ -15,7 +15,7 @@ visualize.wilcox(stat = 1, m = 7, n = 3, section = "lower") \item{n}{Sample size from group 2.} \item{section}{Select how you want the statistic(s) evaluated via -\code{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, +\verb{section=} either \code{"lower"},\code{"bounded"}, \code{"upper"}, or\code{"tails"}.} } \value{