t.test

package_version(R.version)
getwd()
setwd("c:/data")

df<-read.csv("Data1.csv")
summary(df)
head(df)
tail(df)
names(df)
names(df)[21]<-"Gender"
names(df)[22]<-"EDU"
names(df)
write.csv(df,"df_data.csv",row.names = FALSE)
df1<-read.csv("df_data.csv")
names(df1)
str(df1)
# strcture 
View(df1)

library(dplyr)
glimpse(df1)

data(iris)
glimpse(iris)

library(hflights)
glimpse(hflights)


# 58 page 연구집단의 전체 평균
glimpse(df1)
options(scipen = 100)
options(scipen = -100)
t.test(df1$Happiness)
t.test(df1$Happiness,conf.level = .99)
options(scipen = 100)

t.test(df1$Happiness,mu=3.5)
glimpse(df1)
t.test(df1$BF,mu=3.2)
t.test(df1$Peace,mu=3.54)

# 62 page 
# 두 변수의 평균 비교
t.test(df1$Happiness,df1$Peace,
       paired =TRUE )