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)
{{: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).
====== ANOVA ======
[[:r/oneway_anova|Oneway ANOVA]]
[[:r/twoway_anova|Twoway ANOVA]]
====== Regression ======
[[:/r/linear_regression|Linear Regression]]
[[:r/multiple_regression|Multiple 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.