x1 <- rnorm(10, mean=100, sd=15)
x1
t.test(x1, mu=95)

1. What is the std error value?
2. 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)

a = c(65, 78, 88, 55, 48, 95, 66, 57, 79, 81)
mean(a)
sd(a)

t.test(a, mu=60)

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)

survey_ms_2017.sav

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).

Oneway ANOVA
Twoway ANOVA

Linear Regression
Multiple Regression

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.