addProbability: Add a Pure Probability
In jto888/FaultTree1: Fault Trees for Risk and Reliability Analysis

Description Usage Arguments Value References Examples

Modifies an existing fault tree with the addition of a pure probability.

1 2	addProbability(DF, at, prob, display_under=NULL, tag="", label="", name="", name2="", description="")

`DF`	A fault tree dataframe such as returned from ftree.make or related add... functions.
`at`	The ID of the parent node for this addition.
`prob`	A probability value >0 && <1
`display_under`	Optionally, the ID of a sibling event under an OR gate for vertical alignment of the component node in the graphic display.
`tag`	A very short identifying string (typically 5 characters or less) uniquely identifying a basic event for minimal cutset evaluation
`label`	An identifying string for the logic gate. Use of label in ftree.make defines the convention for rest of tree construction.
`name`	A short identifying string (typically less than 24 characters)
`name2`	A second line, if needed for the identifying string label
`description`	An optional string providing more detail for this probability.

Returns the input fault tree dataframe appended with an entry row for the defined probability.

Nicholls, David [Editor] (2005) System Reliability Toolkit Reliability information Analysis Center

O'Connor, Patrick D.T. (1991) Practical Reliability Engineering John Wiley & Sons

Vesely, W.E., Goldberg, F.F., Roberts, N.H., Haasl, D.F. (1981) Fault Tree Handbook U.S. Nuclear Regulatory Commission

Vesely, W.E., Stamatelato, M., Dugan, J., Fragola, J., Minarick, J., Railsback, J. (2002) Fault Tree Handbook with Aerospace Applications NASA

Doelp, L.C., Lee, G.K., Linney, R.E., Ormsby R.W. (1984) Quantitative fault tree analysis: Gate-by-gate method Plant/Operations Progress Volume 3, Issue 4 American Institute of Chemical Engineers

1
2
3

mytree <-ftree.make(type="and", name="common cause failure", name2="of redundant pumps")
mytree<-addActive(mytree,at=1,mttf=3,mttr=12/8760, name="Pump")
mytree <- addProbability(mytree,  at=1, prob=.05, name="common cause", name2="beta factor")