Week2 Homework2

Exercise 2

library(MASS)

## Warning: package 'MASS' was built under R version 3.4.3

## 
## Attaching package: 'MASS'

## The following object is masked from 'package:dplyr':
## 
##     select

# 透過package Mass當中的cats資料進行下列兩項指令:
coef(lm(Bwt ~ Sex, data = cats)) 

## (Intercept)        SexM 
##   2.3595745   0.5404255

coef(lm(Bwt ~ Sex, data = cats, contrasts = list(Sex = "contr.sum")))

## (Intercept)        Sex1 
##   2.6297872  -0.2702128

# 透過兩者的迴歸係數觀察，前者的係數從0.5404變成後者的-0.2702，其原因為前者在進行比較時將性別當中的女性組平均數視為Baseline group並用男性祖平均數進行比較，因而得到了0.5404男性組相對於女性組的數值，而後者則是沒有Baseline group，直接兩組分別對於整體的平均數進行比較的結果，此時性別代碼為1的性別組(男性)相對整體平均的斜率則為-0.2702