儲蓄保險投保與收入間關係

情境：

某保險公司抽樣調查 160 位受訪者，依照收入高中低 3 級，詢問是否投保儲蓄型保險，得到以下數據：

分析 (Excel)：

※ 因為 p 值 < 0.05，所以拒絕虛無假設，也就是說是否保險與收入有關。

細部分析 (R)：

rm(list=ls()) Data.Source <- matrix(c(27,32,39,33,18,11), dimnames=list(c('YES','NO'), c('High', 'Mid', 'Low')), byrow=TRUE, nrow=2, ncol=3) Data.DegreeOfFreedom <- 2 Data.RowSum <- c(sum(Data.Source[1,]), sum(Data.Source[2,])) Data.RowPortion <- Data.Source / Data.RowSum Data.ColSum <- c(sum(Data.Source[,1]), sum(Data.Source[,2]), sum(Data.Source[,3])) Data.ColPortion <- t(Data.Source) / Data.ColSum Data.Expection <- Data.RowPortion * t(Data.ColPortion) * sum(Data.RowSum) Data.ChiSquareObserved <- ((Data.Source - Data.Expection)^2) / Data.Expection Data.ChiSqaure <- sum(Data.ChiSquareObserved) Data.pValue <- pchisq(Data.ChiSqaure, Data.DegreeOfFreedom, lower.tail=FALSE)

分析 (R)：