Embedded Files
背景：
某牙膏公司對其 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)
Page updated
Google Sites
Report abuse