Differences

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

--- r:chi-square_test:output01 [2025/12/02 22:39] – created hkimscil
+++ r:chi-square_test:output01 [2025/12/02 22:41] (current) – hkimscil
@@ Line 47: / Line 47: @@
   Neither    5    45
   Right      4   143
-> round(e, 3)
+> round(e, 2)
-            Left   Right
+           Left  Right
-  Left     2.911  35.089
+  Left     2.91  35.09
-  Neither  3.830  46.170
+  Neither  3.83  46.17
-  Right   11.260 135.740
+  Right   11.26 135.74
-> r <- (e-o)/sqrt(e)
+> res <- (e-o)/sqrt(e)
-> r
+> round(res,2)
-                Left      Right
+           Left Right
-  Left    -3.5692556  1.0279785
+  Left    -3.57  1.03
-  Neither -0.5979674  0.1722201
+  Neither -0.60  0.17
-  Right    2.1634665 -0.6230983
+  Right    2.16 -0.62
-> chisq.cal <- sum((e-o)^2/e)
+> chisq.cal <- sum(res^2)
 > p.val <- pchisq(chisq.cal, df=2, lower.tail = F)
 > chisq.cal
@@ Line 80: / Line 80: @@
 >
 > legend("center", legend = rownames(wh.clap.tbl),
-+
++        fill = c("red", "lightgreen" ,"blue"))
+>
+>
 </code>
+{{.:pasted:20251202-224153.png}}