Differences

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

--- logit_analysis [2019/09/15 02:41] – hkimscil
+++ logit_analysis [2019/09/18 07:56] (current) – removed hkimscil
@@ Line 1: / Line 1: @@
-====== logit analysis ======
-<code>
-mydata <- read.csv("https://stats.idre.ucla.edu/stat/data/binary.csv")
-## view the first few rows of the data
-head(mydata)
-</code>
-<code>
-  admit gre  gpa rank
-     0 380 3.61    3
-     1 660 3.67    3
-     1 800 4.00    1
-     1 640 3.19    4
-     0 520 2.93    4
-     1 760 3.00    2
-</code>
-<code>summary(mydata)
-</code>
-<code>
-     admit             gre             gpa             rank
- Min.   :0.0000   Min.   :220.0   Min.   :2.260   Min.   :1.000
-st Qu.:0.0000   1st Qu.:520.0   1st Qu.:3.130   1st Qu.:2.000
- Median :0.0000   Median :580.0   Median :3.395   Median :2.000
- Mean   :0.3175   Mean   :587.7   Mean   :3.390   Mean   :2.485
-rd Qu.:1.0000   3rd Qu.:660.0   3rd Qu.:3.670   3rd Qu.:3.000
- Max.   :1.0000   Max.   :800.0   Max.   :4.000   Max.   :4.000
-</code>
-<code>sapply(mydata, mean)
-sapply(mydata, sd)
-</code>
-<code>> sapply(mydata, mean)
-   admit      gre      gpa     rank
-.3175 587.7000   3.3899   2.4850
-> sapply(mydata, sd)
-      admit         gre         gpa        rank
-.4660867 115.5165364   0.3805668   0.9444602
-> </code>
-<code>xtabs(~admit + rank, data = mydata)</code>
-<code>> xtabs(~admit + rank, data = mydata)
-     rank
-admit  1  2  3  4
-28 97 93 55
-33 54 28 12
-</code>