#描述統計～平均數
rm.data <- m[complete.cases(m), ] #處理遺漏值
nm = rm.data #重新命名資料
mean(nm$chinese)
#描述統計～t考驗
https://sites.google.com/site/rlearningsite/inference/ttest
t.test(nm$chinese~nm$poor, var.equal=TRUE)