Differences

This shows you the differences between two versions of the page.

--- anova [2018/10/18 08:34] – [논문 작성] hkimscil
+++ anova [2018/10/19 07:54] – [F and t value] hkimscil
@@ Line 377: / Line 377: @@
 ====== F and t value ======
 $$ F = t^{2}$$
+<code>> td <- read.csv("D:/Users/Hyo/Cs-Kant/CS/Rdata/t-test.csv")
+> head(td)
+  gender tmobconv out in. mobpeo
+      2       60   3   3      5
+      2       60   5   3      5
+      1       20   3  10      5
+      2       10   7   5      6
+      2       30   3   3      3
+      2       30   5   5      3
+>
+</code>
+<code>
+> tmod <- t.test(tmobconv~gender, data=td, var.eq=T ,na.rm=T)
+> tmod
+	Two Sample t-test
+data:  tmobconv by gender
+t = -3.0453, df = 1449, p-value = 0.002367
+alternative hypothesis: true difference in means is not equal to 0
+percent confidence interval:
+ -48.88717 -10.58088
+sample estimates:
+mean in group 1 mean in group 2
+.28457       121.01860
+> tmod$statistic^2
+       t
+.273615
+</code>
+<code>
+> fmod <- aov(tmobconv~gender, data=td)
+> summary(fmod)
+              Df   Sum Sq Mean Sq F value  Pr(>F)
+gender         1   320284  320284   9.274 0.00237 **
+Residuals   1449 50044262   34537
+---
+Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
+observations deleted due to missingness
+>
+</code>
 ====== Example ======