網民在不同上網時數上之機率

場景：

• • 假定網民工作時平均使用網路時數：77 小時，標準差：20 小時。

  • 假定網民工作時使用網路時數為標準常態分佈。

問題：

• • 求算使用網路時數 50 小時以下之機率（0.0885）。

  • 求算使用網路時數 100 小時以上之機率（0.1251）。

  • 求算使用網路時數排行前 20% 之最低使用網路時數（93.83）。

GNU R：

# Standard Normal Probability Density Function StdNormalProbabilityDensity <- function(x) { myCoefficient <- 1 / (sqrt(2 * pi)) myPower <- -1 * ((x ^ 2) / 2) myDensity <- myCoefficient * exp(myPower) myDensity } ZScore <- function(x, myMean, myStdDeviation) { myZScore <- (x - myMean) / myStdDeviation myZScore } ######################################################################################## myMean <- 77 myStdDeviation <- 20 myHours <- 50 myProbability <- pnorm(myHours, mean=myMean, sd=myStdDeviation) print(sprintf("時數<=%d 機率=%.4f", myHours, myProbability)) myHours <- 100 myProbability <- pnorm(myHours, mean=myMean, sd=myStdDeviation) print(sprintf("時數>=%d 機率=%.4f", myHours, 1 - myProbability)) myProbability <- 1 - 0.2 myHours <- qnorm(myProbability, mean=myMean, sd=myStdDeviation) print(sprintf("時數排行>=%.2f 時數=%.2f", 1 - myProbability, myHours))