Differences

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

--- ancova [2024/07/26 13:28] – hkimscil
+++ ancova [2024/11/03 13:57] (current) – [ANCOVA (Analysis of Covariance)] hkimscil
@@ Line 28: / Line 28: @@
   * 이것이 ANCOVA이다.
-통계를 공부하는 방법이 세가지가 있다.
+e.g. 통계를 공부하는 방법이 세가지가 있다.
   * B = traditional 하게 책으로만 공부하는 방법
   * T = 동영상을 위주로 공부하는 방법
   * R = Researcher가 고안해낸 새로운 방법
   * 이 세가지 방법의 효과에 차이가 있는지 알고 싶어서
-  * 세 그룹의 학생들이 (각 30명) 세 가지 방법으로 통계를 배운 후.
+  * 세 그룹의 학생들이 (각 30명) 세 가지 방법으로 통계를 배운 후. (x2)
-  * 통계시험을 치룬다
+  * 통계시험을 치룬다 (y)
+  * 그런데 연구자는 각 학생들의 지능지수를 제어하여 살펴보고 싶다 (x1)
+e.g.
 {{:anorexia.csv}}
-<code>anorexia=read.csv("anorexia.csv")
+<code>
+anorexia <- read.csv("http://commres.net/wiki/_media/anorexia.csv")
 anorexia
 anorexia$Diff = anorexia$Postwt-anorexia$Prewt
@@ Line 51: / Line 50: @@
 $ Postwt = Prewt + Treat + Error $ \\
-<code>levels(anorexia$Treat)
+<code>
+levels(anorexia$Treat)
+[1] NULL
+anorexia$Treat <- factor(anorexia$Treat, levels = c("Cont", "CBT", "FT"))
+levels(anorexia$Treat)
 [1] "Cont" "CBT"  "FT"
-anorexia$Treat=factor(anorexia$Treat, levels = c("Cont", "CBT", "FT"))
-model = lm (Postwt ~ Prewt + Treat, data = anorexia)
+model <- lm (Postwt ~ Prewt + Treat, data = anorexia)
 </code>