nextLevel {ftaproxim}

Proxels of the next time step

Description

For a given basic event and a proxel, this function calculates all the possible proxels for the next time step.

Usage

nextLevel(BE, proxel, delta)

Arguments

BE

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

proxel

a data frame containing a state, age intensity and a probability.

delta

a numeric value as time step

Value

a data frame where each row is a proxel

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))
)
proxel <- data.frame(State = "IS", ageInt = 0.1, Prob = 0.9)
delta <- 0.1
nextLevel(BE, proxel, delta)