c:ms:2017:schedule:week15
Table of Contents
https://goo.gl/forms/x7NUmOxm2DxKmpd62
two sample t-test
x1 <- rnorm(10, mean=100, sd=15) x1 t.test(x1, mu=95)
- What is the std error value?
- What if you have a sample with a large size?
- How do you get your se?
ster <- sd(x1)/sqrt(length(x1)) difx <- mean(x1)-95 tvalue <- difx/ster difx ster tvalue
x2 <- rnorm(100, mean=100, sd=15) head(x2) tail(x2) t.test(x2, mu=95) ster <- sd(x2)/sqrt(length(x2)) difx <- mean(x2)-95 tvalue <- difx/ster difx ster tvalue
mtcars mtcars$mpg mtcars$am t.test(mtcars$mpg~mtcars$am)
one sample t-test 2
a = c(65, 78, 88, 55, 48, 95, 66, 57, 79, 81) mean(a) sd(a) t.test(a, mu=60)
Faired sample t-test
sleep sleep.wide <- data.frame( ID=1:10, group1=sleep$extra[1:10], group2=sleep$extra[11:20] ) 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)
gender: male vs. female
T-TEST GROUPS=tend(1 2) /MISSING=ANALYSIS /VARIABLES=bigco smallco likeprog /CRITERIA=CI(.95).
T-TEST GROUPS=tend(1 2) /MISSING=ANALYSIS /VARIABLES=selfprom ethalright /CRITERIA=CI(.95).
tendency - hum/soc vs. natsc/eng
T-TEST GROUPS=gender(1 2) /MISSING=ANALYSIS /VARIABLES=bigco smallco likeprog /CRITERIA=CI(.95).
T-TEST GROUPS=gender(1 2) /MISSING=ANALYSIS /VARIABLES=selfprom ethalright /CRITERIA=CI(.95).
ANOVA
Regression
class survey
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.
c/ms/2017/schedule/week15.txt · Last modified: 2017/06/15 09:02 by hkimscil