From bdc15db99f9a7d9b421eb2e8815d5e4450d4b5f7 Mon Sep 17 00:00:00 2001
From: Vikas Rawal <vikasrawal@gmail.com>
Date: Fri, 29 Nov 2019 10:48:44 +0530
Subject: [PATCH] Added t-tests

---
 statistical-inference.org | 47 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/statistical-inference.org b/statistical-inference.org
index 3bdc225..11b7ab1 100644
--- a/statistical-inference.org
+++ b/statistical-inference.org
@@ -279,3 +279,50 @@
 #+end_src
 
 
+
+
+** t-test
+
+#+name: ttest1
+#+begin_src R :results output
+  readRDS("plfsdata/plfsacjdata.rds")->worker
+  worker$standardwage->worker$wage
+  t.test(worker$wage)
+#+end_src
+
+#+RESULTS: ttest1
+#+begin_example
+
+	One Sample t-test
+
+data:  worker$wage
+t = 432.99, df = 37634, p-value < 0.00000000000000022
+alternative hypothesis: true mean is not equal to 0
+95 percent confidence interval:
+ 289.7136 292.3484
+sample estimates:
+mean of x 
+  291.031
+#+end_example
+
+#+name: ttest2
+#+begin_src R :results output
+  subset(worker,sex!=3)->t9
+  factor(t9$sex)->t9$sex
+  t.test(wage~sex,data=t9)
+#+end_src
+
+#+RESULTS: ttest2
+#+begin_example
+
+	Welch Two Sample t-test
+
+data:  wage by sex
+t = 79.02, df = 13483, p-value < 0.00000000000000022
+alternative hypothesis: true difference in means is not equal to 0
+95 percent confidence interval:
+ 104.6563 109.9805
+sample estimates:
+mean in group 1 mean in group 2 
+       310.8974        203.5790
+#+end_example