R/ExpectedLifetime.R

In louisaslett/ReliabilityTheory: Structural Reliability Analysis

Defines functions expectedNetworkLifetimeExp expectedSystemLifetimeExp expectedSignatureLifetimeExp

Documented in expectedNetworkLifetimeExp expectedSignatureLifetimeExp expectedSystemLifetimeExp

expectedSignatureLifetimeExp <- function(s, rate=1) {
  n <- length(s)
  xin <- rep(0, n)
  for(i in 1:n) {
    xin[i] <- rate * sum(1/(n-1:i+1))
  }
  sum(s * xin)
}

expectedSystemLifetimeExp <- function(sys, rate=1) {
  s <- computeSystemSignature(sys)
  expectedSignatureLifetimeExp(s, rate)
}

expectedNetworkLifetimeExp <- function(sys, rate=1) {
  s <- computeNetworkSignature(sys)
  expectedSignatureLifetimeExp(s, rate)
}