| Both sides previous revisionPrevious revisionNext revision | Previous revision | 
| c:ms:2017:schedule:week15 [2017/06/14 09:41]  – [t-test 2]  hkimscil | c:ms:2017:schedule:week15 [2017/06/15 09:02] (current)  –  hkimscil | 
|---|
| ====== t-test ====== | https://goo.gl/forms/x7NUmOxm2DxKmpd62  | 
|   |   | 
|   | ====== two sample t-test ====== | 
| <code>x1 <- rnorm(10, mean=100, sd=15) | <code>x1 <- rnorm(10, mean=100, sd=15) | 
| x1 | x1 | 
| </code> | </code> | 
 |  | 
| ====== t-test 2 ====== | ====== one sample t-test 2 ====== | 
 |  | 
| <code>a = c(65, 78, 88, 55, 48, 95, 66, 57, 79, 81) | <code>a = c(65, 78, 88, 55, 48, 95, 66, 57, 79, 81) | 
|   | mean(a) | 
|   | sd(a) | 
 |  | 
| t.test(a, mu=60) | t.test(a, mu=60) | 
| </code> | </code> | 
|   | ====== Faired sample t-test ====== | 
 |  | 
| <code>sleep | <code>sleep | 
 |  | 
| sleep_wide <- data.frame( | sleep.wide <- data.frame( | 
|     ID=1:10, |     ID=1:10, | 
|     group1=sleep$extra[1:10], |     group1=sleep$extra[1:10], | 
|     group2=sleep$extra[11:20] |     group2=sleep$extra[11:20] | 
| ) | ) | 
| sleep_wide</code> | sleep.wide  | 
|   |   | 
|   | t.test(sleep.wide$group1 - sleep.wide$group2, mu=0, var.equal=TRUE)  | 
|   | t.test(sleep.wide$group1, sleep.wide$group2, paired=TRUE)  | 
|   | </code>  | 
|   |   | 
|   | {{:survey_ms_2017.sav}}  | 
|   | ----  | 
|   | gender: male vs. female  | 
|   |   | 
|   | <code>T-TEST GROUPS=tend(1 2)  | 
|   |   /MISSING=ANALYSIS  | 
|   |   /VARIABLES=bigco smallco likeprog  | 
|   |   /CRITERIA=CI(.95).  | 
|   | </code>  | 
|   |   | 
|   | <code>T-TEST GROUPS=tend(1 2)  | 
|   |   /MISSING=ANALYSIS  | 
|   |   /VARIABLES=selfprom ethalright  | 
|   |   /CRITERIA=CI(.95).  | 
|   | </code>  | 
|   |   | 
|   | ----  | 
|   | tendency - hum/soc vs. natsc/eng  | 
|   |   | 
|   | <code>T-TEST GROUPS=gender(1 2)  | 
|   |   /MISSING=ANALYSIS  | 
|   |   /VARIABLES=bigco smallco likeprog  | 
|   |   /CRITERIA=CI(.95).  | 
|   | </code>  | 
|   |   | 
|   | <code>T-TEST GROUPS=gender(1 2)  | 
|   |   /MISSING=ANALYSIS  | 
|   |   /VARIABLES=selfprom ethalright  | 
|   |   /CRITERIA=CI(.95).  | 
|   | </code>  | 
|   | ====== ANOVA ======  | 
|   | [[:r/oneway_anova|Oneway ANOVA]]  | 
|   | [[:r/twoway_anova|Twoway ANOVA]]  | 
|   | ====== Regression ======  | 
|   | [[:/r/linear_regression|Linear Regression]]  | 
|   | [[:r/multiple_regression|Multiple Regression]]  | 
|   |   | 
|   | ====== class survey ======  | 
|   |   | 
|   | <code>  | 
|   | UNIANOVA bigco BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA smallco BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA allowance BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA workhr BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA selfprom BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA ethalright BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA phmin BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA phpeo BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA textmin BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   |   | 
|   | UNIANOVA textpeo BY gender year2  | 
|   |   /METHOD=SSTYPE(3)  | 
|   |   /INTERCEPT=INCLUDE  | 
|   |   /PLOT=PROFILE(gender*year2)  | 
|   |   /EMMEANS=TABLES(gender) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(year2) COMPARE ADJ(LSD)  | 
|   |   /EMMEANS=TABLES(gender*year2)   | 
|   |   /PRINT=OPOWER ETASQ DESCRIPTIVE  | 
|   |   /CRITERIA=ALPHA(.05)  | 
|   |   /DESIGN=gender year2 gender*year2.  | 
|   | </code>  | 
|   |   |