From 5625c301d4c85f988d709cc6e037f71a98a9a2c2 Mon Sep 17 00:00:00 2001
From: Holger Brandl <holgerbrandl@gmail.com>
Date: Wed, 29 Nov 2017 16:23:03 +0100
Subject: [PATCH] updated docs

---
 R/rnblight/.example_images/fisher_example.png | Bin 0 -> 3310 bytes
 R/rnblight/README.md                          |  25 ++++++++
 R/rnblight/example.md                         |  58 ++++++++++++++++++
 3 files changed, 83 insertions(+)
 create mode 100644 R/rnblight/.example_images/fisher_example.png
 create mode 100644 R/rnblight/README.md
 create mode 100644 R/rnblight/example.md

diff --git a/R/rnblight/.example_images/fisher_example.png b/R/rnblight/.example_images/fisher_example.png
new file mode 100644
index 0000000000000000000000000000000000000000..9beb5bb10cc2a1224c7f08af842d750327586d7e
GIT binary patch
literal 3310
zcmZ9PcQhN`7r+y0tEyG2wTf2N9<gihT@+E95;1DTrmC%)HA^UJ@7Oa4z7;jws69%3
ziA@?}^UFEE|Gwwk_uhHu+<V@;_kP~H=YBLX(!Nd2P7MG6ZtLo3m=V`-;!vR^C(gW>
z8sdhwMOQ=hdGP$+5*A@$!AS0VLnRJJSsDI1?PE=}>szh|1_7CiE8_Gl8hFy;_*-Xb
z9LUIMgdWA)Rn0P!DFoHSKA#yj8YRo#TMlb?=UVTEFuXRN3(U{4-cg)@kA+sg_}q9L
zPeZ-(?f-IZPFV2iEmgU>Yy$L%%vsq-WWEep&zy?9xx`PD+eclsEFFmSUj9AW?>Y#&
zjk-DCK^)Dw7nB++pFQk8+sNJez!j;3=)Dd-UwM1SbKx{{wf~*RRFwtp8b6_8To8Hg
zVS^0zJ0~6jS@_OSaDzj0`Q?fBoEEkAPAFfWt{weJ5G@n!y=)|O?0uOajQ4uYHO}L_
z+8p{~j*e&S(P3!Y1}DwDlU$#kGjxPOjs*Yx(9N$N>%*D2<pwaGXvuKl)q6$2DHqK6
zEm7=DmK%euJ_9bX1yM#9du{gYVh+#dp>0cMy^&Xc><^Z^2hK)5i>92QIsFafasM!q
zN*z$pab^={ol^q-eix+3PV`Ta->x{?u11tW>N*6D_ZDO$Zmv$Yhzf=&%IB}PfA>b^
zVdMCc<JKMo%{t;jCzMVMK5)L)0kq=B6|~Dp)(;2n7;AGy1nk~iUmT$2puGn@7lTBn
z7b?s1;WEF&@t_ks*it5)^6AR#O-<9do_V>EAqTYCv~#O0mlwr(5X)$!qx~SnB@Z2f
z9m}1O2Hb3w7hpuXcGFm%+AtM*b?vpLLd(Ad*?@+BI}W^mrw$5TZ1?jhh#=^SA`jJE
zR_eO;*;PO7E&5Lwwk^Ka2dunkavRe_--m%gH^fY&K(!KCQ^)17dCkNtmJ1eyOEf~N
zYg^-M#xCrA`^dIV*HTjO)b&4$waZEGD2gdv9uC|s={o2M3&nncd1AjPz`W(JjwXwn
zY1rAu^VWztO>s#7dA;O6p=8P*wCIPHavn@<ZxtZ}abHDj<hb(|&t{7|7a6>MZ*ZKi
zE~ifbV9{Jri4niU4!Y-Y55jgEhBR{SyePEu`^KC)hH_;TG@?ZT9}l>c`qxu23Y2j8
zAjQ7~V03|5w1LYC`|W(K6Il6`Xi^LW(QT=Ka4zs0WHXh!<@i7boB(O`dB6)EAu@X3
zwPyq<lAC!zjK4@;S+j(7#K{t@oM<ESvKKeVfjc28C7F3EwiqK`c4IK5`Vh3aMBA)W
zf|Td4iX$S=W!_7jrDu3-`G`oDFzUnxg*?LOdmy?A@!Q-Bgypb<*&8H&Tz|$sDk8(x
z)v7E%WFyC8JWtNldO7l9FB>*=c&-a~umCEbZx#pqP^Hi`Q6eIT%kf+CEfqQgJ5<mu
zcr_Vzo^Mw>bNmjZLXCl4GjJw^Ay2{&^*is>U2(Gw&dzzHk;^X&XR+@&yyGNne0nG<
zCgf&Y1;S%c?NmR0N8Knbh2zI?9o!wq)3(m`>oYw)y_-b|MNBj-ShH={$EYN<fb(%v
zz|^zD_Wi!M6f+xiXK(@Id`_Tvz~&ED-ciXq<lkW_4@^mvf!WAJqZ8R7NpQn|B#_cq
z_^zA#e6xotd$V+?R~ZS^7QxywOvydIuzW1-L_oh^ZCwzusTCWwvpi-kqf31&@6EQt
z%H`mkKJWkNDT}1WOAYPm1d>{@OUa)xp8Tis&L9sb+8%gO=K63|QejN#Lg-E{WS6~Q
zZLJ|NTYA^dHF|`_>}&3zEYZcQtu%d+j|cgo+m+n-2<^veJl^fA@B6M8s5S?#8MsW~
z?Jj-K9yfC3yuLie^|{Ip{HV~NUkq~pqQ=ixFJ@MD@#@_w!L%*ct5NqfwRh2c8U>s8
zD5p0P0xo{9(0``7?bABv=C>9bbWZ@_Hj#fnxlA+6P!VOz_$ZE*V8s?~ycoRlhQf)X
zH0`{3J<E2Qg<NVNKWx8){=Q|KP)V_tGBYYT<S$=NQ>MVsDP!BXJxh?7bzP_>31}>{
z5x@F@YcMR0&$M3`*h<7sJByB8>XF1WnOlg7Of>)?n=fg`)32ic*<0&q!>^Z(a5QNw
zOXf=_qu60tssvf7l`s>G`g_|>5ptY{R<a~%H-qeoWw8zn`DU<7<mtxJq;8S)V_CR{
z0y0(Kld`XfDB9PIiVu=3oUq($wy2bMCNU-37G7y~XQ=YzM^#$YN@4$nsi&8$sZ;0N
zs<fJcE5GN^&Tw+}?TIrtlH(VEK9pM@BuhOT6>>cv&5@ie{rr-hk!!&viRE+{xl;d2
zhiRcLQpwtV?6fRCAPD28wfpkbvXxz+MY;P`5<Da&dPG$?b@SvBd?tMVQ}u-h@4$}a
z^B{yr|Gx^M^=wG0!kQZd90GMa-b$>LI#!vSX8WUAHso8a^*rA4Cg6!>cI$uO6QKk#
z+_Kn$xkM-!hi$+Vr>gm&h}!x^AA-*d+eY-oc)Xe+kQ3{jdbLgabO$Eei77fGB!bq$
zWCO0xun1=9D%0psk}gA^;Leni56#CYl2|LPPN+St@9DbdbS2yDgG)_a%AQ6gtAf)D
za!EjuoY>osn79VELQ^&dG?s!EpdOQkvWCP`^H+t?@+Fz>#w6qPRR;g$-?u@U10?Y#
zZ-$=(<46M>vEO)#WuOy7u`_lsI}_wtlNa&7v9IuXu9&k`u);GZQx#-Nd7MPWx~Fvc
zgF0Pt7EP>hD(tLHsTpBMo2eqm!+uZTOkm}zq3sx*!Y=)uD3kcX_YWD33I|BZTNmfc
z!fXQSQeD9GL#NePgL{;qfY7E2&6Z?NIf))pkkUfZ$?lva$hB5BxwL?$fY!G^2?DXz
z6=vbyub}U6Ukpl;ACAlrf=BOc);Rp!Jk-XG&~WRFTxtkn@p`~EdTwp@zJd4z;Ww`-
zak0uz6n4;dY<)NbW2r)b5ii*+F%I`!Wk#ycn?P0v%qTf<@qIe`EGqd@n?VWHvZkim
z$8VwQra7H5p{*BdE`3v}0^M%xN{jUFx{Rs1uPMX(s?RORK{=Do0;~>z@voyVNW(i}
z`_rRk!cX2AY&>bwQ$bl!0EE7$DE`%<WrqKoXv_<y2j;2$yW!I1KW~M8XwE!Oid0ep
zXL{W7Re!V5w>b3?PZ9p)>CS45-CB_Z0>j!UWQ$9aR5X52bI^IR9JYpF5T17dM>1(%
ztqJJlbNX=T7rIb=%7C7C2$R?AOfM)#oFB1bKR%Wl0E+hG)oAY;mswB=>(vhx)wYy>
zNOv_vvWo*Ngn-K}xzAfMIzQ9CE+6IXMAtT#kfuw07IXxNness~!+02c9zUFYp7u(i
zv)%7IYwqXmSCAI4kntavMsXV|7^gpA!KGsgg33jL@@u9Tm!`ofS36OdSy7ep($t2G
zAOzV-ZQHWvnXyC<Av?A8+UrPp+T+i+Sfdce^$o@wa{70{9u1WM{VZXRZTa^9JdZlk
z;A*BaC&OD{NgffTk~(e8zGGcnMuKQh`+8w<SgMjWT5Gq^;;}yjZ%#)OcgvBI6a7=k
zoVhLe6(;IKUvpkpzW6^#o-QHM#qYk@I68n6QYY_)v_V#@<x=9SADo;Tj8FAq`il8J
z^1Qr2Zb$l!qvnc3@M_eEj|#!C6U@(d%=;gc>-)$#G~O0nOu1_X4)kmdp4lhJO%F!H
z3##Lt#+9Jq%iUoo^d>^2oXmO+n2A`1F=M8GLd=maVo6!;YUP6o>1uMrJ*Pg;g++3O
zv}jk6RkYFxYZF&cN_HX6;x6+e`A#Pd>B9ZgK-Z=<S83y8Krr)_Tg6(9-602c&Yh21
zm*d#XtblOop96o$*+v{CG8wc+hs++ke)nV?W`pKQK5`o7#+nRQs8~#X)eE+58SST>
z>5^Ihl)ht?PY+Yv%<?s#`YRY3t;q!!xm_O1Wua-WT-j!ZO0ph~XHc(nq6|+SO1c_V
zcX4fB*N|7!4c1HFY!(InzRk*5-5eV7>r$0!uop2F&x|hIaz~LRhE+8NW{a(hFFn^o
z@Y6<B!I{){D7OoGz`F16a49QFK_z(DCe!%&=iTA!u8Q4RCD~k@4vP<cY&hIjW2jd^
zW2|qdU6@4Pl-_!>mS5t);Bxl^W>M$fBb08*zV1pWOD9#Ke}%V&;>9<N&_KnCL_W47
zMcW_GrvhuO^i7JkEpZSQzgU09c#nnz98D`xHzLHJHw`7PK6<1&45F}|;~fD(0wu5A
zas*{qV_vt8Ffqy`2qyL=WjHRtNk6&CS$hN?Bx_<1hHgYL6(PUcAmnxUioD}KaPN36
oz3Bg&2eQLIF+><|oG&=M+XXm=p85+D`xt<(rjbUSnnTS00IM9FlmGw#

literal 0
HcmV?d00001

diff --git a/R/rnblight/README.md b/R/rnblight/README.md
new file mode 100644
index 0000000..c4cde00
--- /dev/null
+++ b/R/rnblight/README.md
@@ -0,0 +1,25 @@
+# rnblight
+
+Update markdown result chunks in markdown documents
+
+```bash
+cd /Users/brandl/Dropbox/projects/datautils/R/rnblight
+#cp /Users/brandl/Dropbox/documents/datascience/chi2.md rerender/
+#cp -r /Users/brandl/Dropbox/documents/datascience/.chi2_images rerender/
+#
+#git init
+#git add chi2.md
+#git commit -m "initial commit"
+
+mdInput=chi2.md
+mdBase=$(basename $mdInput .md)
+
+mv $mdInput ${mdBase}.Rmd
+
+Rscript - <<EOF
+knitr::knit('${mdBase}.Rmd', '${mdBase}.md')
+EOF
+
+idea .
+
+```
\ No newline at end of file
diff --git a/R/rnblight/example.md b/R/rnblight/example.md
new file mode 100644
index 0000000..49d2fd2
--- /dev/null
+++ b/R/rnblight/example.md
@@ -0,0 +1,58 @@
+Frequency tests
+================
+
+* Example: Prop of dieting woman higher than for men?
+
+![](.example_images/fisher_example.png)
+
+```
+?fisher.test
+```
+
+
+Proportion Tests
+================
+
+```{r}
+prop.test(x=333, n=1022, conf.level=0.98)
+
+prop.test(x=333, n=1022)
+```
+
+From
+http://stats.stackexchange.com/questions/60073/confidence-interval-for-difference-between-proportions
+
+The sample size is 34, of which 19 are females and 15 are males. Therefore, the difference in proportions is 0.1176471.
+
+```{r}
+19/34 - 15/34
+prop.test(x=c(19,15), n=c(34,34), correct=FALSE)
+
+## also works for single proportion
+#prop.test(x=c(19), n=c(34), correct=FALSE)
+#prop.test(x=c(19,15,20), n=c(34,34,34), correct=FALSE)
+
+```
+Also see <http://stat.ethz.ch/R-manual/R-devel/library/stats/html/prop.test.html>
+
+Nice math introhttps://onlinecourses.science.psu.edu/statprogram/node/164 with t-statistc
+
+
+
+Confidence around proportions
+-----------------------------
+
+Formula:
+ > If the samples size n and population proportion p satisfy the condition that np ≥ 5 and n(1 − p) ≥ 5, than the end points of the interval estimate at (1 − α) confidence level is defined in terms of the sample proportion as follows.
+ ![](.example_images/prop_ci.png)
+
+CI math is detailed out under http://www.statisticslectures.com/topics/ciproportions/
+
+```{r}
+prop.test(x=333, n=1022, conf.level=0.98)
+plot(1:10)
+plot(1:10)
+prop.test(x=333, n=1022)
+plot(1:10)
+```
+
-- 
GitLab