Differences

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

--- degrees_of_freedom [2019/09/24 12:06] – hkimscil
+++ degrees_of_freedom [2019/09/24 12:37] – hkimscil
@@ Line 63: / Line 63: @@
-<code>> k <- c(2, 3, 2, 4, 5, 5, 2, 2, 4, 1)
+<code>
-> mean(k)
+k <- c(2, 3, 2, 4, 5, 5, 2, 2, 4, 1)
-[1] 3
+set.seed(1024)
-> var(k)
+ks <- sample(k, 4)
-[1] 2
+mean(ks)
-> sd(k)
+sd(ks)
-[1] 1.414214
+(sd(ks)*3)/4
->
+#########
+mean(k)
+sd(k)
+</code>
+<code>
+> k <- c(2, 3, 2, 4, 5, 5, 2, 2, 4, 1)
+> k
+ [1] 2 3 2 4 5 5 2 2 4 1
+>
+> set.seed(1024)
 > ks <- sample(k, 4)
-> ks
-[1] 2 5 2 2
 > mean(ks)
-[1] 2.75
+[1] 2.25
 > sd(ks)
-[1] 1.5
+[1] 1.258306
 > (sd(ks)*3)/4
-[1] 1.125
+[1] 0.9437293
 >
+> sd(k)
+[1] 1.414214
+>
+> mean(k)
+[1] 3
 </code>
 {{tag>"research methods" statistics n-1 "degrees of freedom" 자유도}}