牙膏公司市調分析
背景:
某牙膏公司對其 A 產品進行促銷,目前該產品市占率為 10%。經過少量試銷後,發現以下現象:
已使用 A 產品之消費者,有 80% 會繼續使用。
使用其他產品之消費者,有 60% 會改用 A 產品。
狀態圖 (Transition Diagram):
機率矩陣圖 (Transition Probability Matrix):
Si 機率:
GNU-R:
P.L <- c(0.8, 0.6) P <- array(0, dim=c(2,2)) P[1,1] = P.L[1] P[1,2] = 1 - P.L[1] P[2,1] = P.L[2] P[2,2] = 1 - P.L[2] S.0 <- c(0.1, 0.9) S.1 <- S.0 %*% P print(S.1)
穩定狀態向量 (Steady-State Vector):
P.L <- c(0.8, 0.6) P <- array(0, dim=c(2,2)) P[1,1] = P.L[1] P[1,2] = 1 - P.L[1] P[2,1] = P.L[2] P[2,2] = 1 - P.L[2] S.0 <- c(0.1, 0.9) S.2 <- S.0 %*% P %*% P print(S.2)
GNU-R:
myEq <- array(0, c(2, 2)) myEq[1, 1] = 1 myEq[1, 2] = 1 myEq[2, 1] = 1 myEq[2, 2] = -3 myEqVal <- array(0, c(2, 1)) myEqVal[1, 1] = 1 myEqVal[2, 1] = 0 myAnswer <- solve(myEq, myEqVal) print(myAnswer)