Commit 2ce12bb1 by Holger Brandl

### updated docs

parent 5625c301
 ... @@ -11,7 +11,7 @@ cd /Users/brandl/Dropbox/projects/datautils/R/rnblight ... @@ -11,7 +11,7 @@ cd /Users/brandl/Dropbox/projects/datautils/R/rnblight #git add chi2.md #git add chi2.md #git commit -m "initial commit" #git commit -m "initial commit" mdInput=chi2.md mdInput=example.md mdBase=\$(basename \$mdInput .md) mdBase=\$(basename \$mdInput .md) mv \$mdInput \${mdBase}.Rmd mv \$mdInput \${mdBase}.Rmd ... @@ -22,4 +22,7 @@ EOF ... @@ -22,4 +22,7 @@ EOF idea . idea . kscript --idea strip_chunk_results.kts kscript strip_chunk_results.kts \${mdBase}.md ``` ``` \ No newline at end of file
 ... @@ -13,25 +13,80 @@ Frequency tests ... @@ -13,25 +13,80 @@ Frequency tests Proportion Tests Proportion Tests ================ ================ ```{r} ```r prop.test(x=333, n=1022, conf.level=0.98) prop.test(x=333, n=1022, conf.level=0.98) ``` ``` ## ## 1-sample proportions test with continuity correction ## ## data: 333 out of 1022, null probability 0.5 ## X-squared = 123.31, df = 1, p-value < 2.2e-16 ## alternative hypothesis: true p is not equal to 0.5 ## 98 percent confidence interval: ## 0.2922473 0.3612773 ## sample estimates: ## p ## 0.3258317 ``` ```r prop.test(x=333, n=1022) prop.test(x=333, n=1022) ``` ``` ``` ## ## 1-sample proportions test with continuity correction ## ## data: 333 out of 1022, null probability 0.5 ## X-squared = 123.31, df = 1, p-value < 2.2e-16 ## alternative hypothesis: true p is not equal to 0.5 ## 95 percent confidence interval: ## 0.2973196 0.3556704 ## sample estimates: ## p ## 0.3258317 ``` From From http://stats.stackexchange.com/questions/60073/confidence-interval-for-difference-between-proportions 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. The sample size is 34, of which 19 are females and 15 are males. Therefore, the difference in proportions is 0.1176471. ```{r} ```r 19/34 - 15/34 19/34 - 15/34 ``` ``` ## [1] 0.1176471 ``` ```r prop.test(x=c(19,15), n=c(34,34), correct=FALSE) prop.test(x=c(19,15), n=c(34,34), correct=FALSE) ``` ``` ## ## 2-sample test for equality of proportions without continuity ## correction ## ## data: c(19, 15) out of c(34, 34) ## X-squared = 0.94118, df = 1, p-value = 0.332 ## alternative hypothesis: two.sided ## 95 percent confidence interval: ## -0.1183829 0.3536770 ## sample estimates: ## prop 1 prop 2 ## 0.5588235 0.4411765 ``` ```r ## also works for single proportion ## also works for single proportion #prop.test(x=c(19), n=c(34), correct=FALSE) #prop.test(x=c(19), n=c(34), correct=FALSE) #prop.test(x=c(19,15,20), n=c(34,34,34), correct=FALSE) #prop.test(x=c(19,15,20), n=c(34,34,34), correct=FALSE) ``` ``` Also see Also see ... @@ -48,11 +103,51 @@ Formula: ... @@ -48,11 +103,51 @@ Formula: CI math is detailed out under http://www.statisticslectures.com/topics/ciproportions/ CI math is detailed out under http://www.statisticslectures.com/topics/ciproportions/ ```{r} ```r prop.test(x=333, n=1022, conf.level=0.98) prop.test(x=333, n=1022, conf.level=0.98) ``` ``` ## ## 1-sample proportions test with continuity correction ## ## data: 333 out of 1022, null probability 0.5 ## X-squared = 123.31, df = 1, p-value < 2.2e-16 ## alternative hypothesis: true p is not equal to 0.5 ## 98 percent confidence interval: ## 0.2922473 0.3612773 ## sample estimates: ## p ## 0.3258317 ``` ```r plot(1:10) plot(1:10) plot(1:10) plot(1:10) ``` ![plot of chunk unnamed-chunk-3](figure/unnamed-chunk-3-1.png) ```r prop.test(x=333, n=1022) prop.test(x=333, n=1022) ``` ``` ## ## 1-sample proportions test with continuity correction ## ## data: 333 out of 1022, null probability 0.5 ## X-squared = 123.31, df = 1, p-value < 2.2e-16 ## alternative hypothesis: true p is not equal to 0.5 ## 95 percent confidence interval: ## 0.2973196 0.3556704 ## sample estimates: ## p ## 0.3258317 ``` ```r plot(1:10) plot(1:10) ``` ```
 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 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) ```
 import java.io.File //val mdFile = File(args[0]) val mdFile = File("/Users/brandl/Dropbox/projects/datautils/R/rnblight/example.md") // //var chunkCounter = 0 //var isInChunk = false //val filtMd = mdFile.readLines().groupBy{ line-> // // if(line.startsWith("```")) { // chunkCounter++ // isInChunk = !isInChunk // } // // chunkCounter //}.filterNot { (_, group) -> // group.filterNot{it.startsWith("```")}.all { it.startsWith("## ") } //} // //File("result.md").writeText( filtMd.flatMap { it.value }.joinToString("\n")) val Boolean.int get() = if (this) 1 else 0 fun List.cumSum(removeNA: Boolean = false): Iterable { return drop(1).fold(listOf(first().toDouble()), { list, curVal -> list + (list.last().toDouble() + curVal.toDouble()) }) } val lines = mdFile.readLines().take(50) lines.map { it.startsWith("```").int } lines.map { it.startsWith("```").int }.windowed(2){ (a,b) -> if(a>b) a else b} lines.map { it.startsWith("```").int }.cumSum().zipWithNext{ a,b -> a} \ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!