HR<-read.table("D:\\R\\HR.txt",header = TRUE)
head(HR)
sa = HR$satisfaction_level
left = as.factor(HR$left)
sa
hist(sa)
table(left)
boxplot(sa~left)
var.test(sa~left) #2개의 집단의 분산을 비교하기 위해 사용하는 함수이다.
?t.test #2개의 그룹을 비교하기 위해 t.test를 사용한다.
t.test(sa~left,var.equal=FALSE) # 2개의 집단의 분산이 다르다는 것이 기본가정이 된다.
t.test(sa~left,var.equal=TRUE) # 2대의 집단의 분산이 같다
t.test(sa~left,alternative="greater") #이직의도가 없는 그룹의 직업만족도가 이직의도를 가진 그룹의 직업만족도보다 더 높다.
t.test(sa~left,alternative="less")
#p.52
RT<-read.table("D:\\R\\RT.txt",header = TRUE)
head(RT)
t.test(RT$Before, RT$After, data=RT, paired = TRUE,alternative = "greater")
t.test(RT$Before, RT$After, data=RT, paired = TRUE)
t.test(RT$Before, RT$After, data=RT, paired = TRUE,alternative = "less")
#p.54
head(HR)
table(HR$salary)
sl <- factor(HR$salary,levels = c("low","medium","high"))
table(sl)
res_aov = aov(sa~sl,data=HR)
summary(res_aov)
TukeyHSD(res_aov)
#p.68 회귀분석
data(mtcars)
head(mtcars)
str(mtcars)
attach(mtcars)
plot(wt,mpg)
m1 = lm(mpg~wt, data = mtcars)
anova(m1)
summary(m1)