幾何機率分佈(Exponential Probability Distribution)
GNU R:
# Exponential Probability ExponentialProbabilityDesity <- function(timeExpect, timeMean) { myPower <- -1 * (timeExpect / timeMean) myProbability <- exp(myPower) / timeMean myProbability } ExponentialCumulativeProbability <- function(timeExpect, timeMean) { myPower <- -1 * (timeExpect / timeMean) myProbability <- 1 - exp(myPower) myProbability }
應用:
圖形:
Probability Density Function
Cumulative Distribution Function