ProxelBE {ftaproxim}

Instantaneous Unavailability Vector

Description

This function calculates the isntantaneous unavailablity/reliabality values of a basic event.

Usage

ProxelBE(BE, state, totaltime, delta, tol)

Arguments

BE

a list containing states, transition matrix, distributions and their parameters for a basic event

state

a string value for the state

totaltime

an integer value for the total time

delta

a numeric value as time step

tol

a numeric value for the tolerance level

Details

For a multistate event, if the state is IS this function returns a vector of instantaneous probabilities of being in the intermediate state

Value

a numeric vector of instantaneous unavailabilities when the state is F

Examples

#A multi-state basic event with Weibull(2, 3) transition distribution function
#from working (OK) to an Intermediate State (IS), a fixed time of 0.5 transtion
#from IS to failure (F), and a fixed repair time of 0.1 (transition from state F to state OK).
delta <- 0.1
BE <- list(
  states = c("OK", "IS", "F"),
  G = rbind(
    c(NA, 1, 0),
    c(0, NA, 1),
    c(1, 0, NA)
  ),
  dist = c("weibull", "unif", "unif"),
  param = list(c(2, 3), c(0.5 - delta, 0.5 + delta), c(0.1 - delta, 0.1 + delta))
)
probIS <- ProxelBE(BE, state = "IS", totaltime = 5, delta = 0.2, tol = 0.000000001)
plot(probIS, type = "l")