title: “titanic Surve or Die?” output: html_document —

洪浩博 生機三 b04611027

總乘客與死亡率

pie(table(ti$survival))

#乘客人數
people=length(ti$gender)
cat("總人數:",people,"\n")

## 總人數: 2208

#存活率
sur_rate=sum(ti$survival)/people
cat("總存活率: ",sur_rate)

## 總存活率:  0.2613225

男女差異

gender=table(ti$gender)
pie(gender)

gender <- table(ti$gender,ti$survival)
print(gender)

##    
##        0    1
##   0 1468  258
##   1  163  319

barplot(gender)

雜訊

bad_ag=tabulate(match(ti$age,9999),1)
bad_fa=tabulate(match(ti$fare,9999),1)
bad=bad_ag+bad_fa
cat("存在雜訊9999共",bad ,"個","\n")

## 存在雜訊9999共 36 個

cat("於age 區:",bad_ag,"個","\n")

## 於age 區: 10 個

cat("於fare區:",bad_fa,"個")

## 於fare區: 26 個