mytree <-ftree.make(type="cond", reversible_cond=TRUE, name="power outage")
mytree<-addLogic(mytree, at=1, type="and", name="neither emergency", name2="generator operable")
mytree<-addLatent(mytree, at=2, mttf=5,mttr=12/8760,inspect=1/26, name="e-gen set fails")
mytree<-addLatent(mytree, at=2, mttf=5,mttr=12/8760,inspect=1/26, name="e-gen set fails")
mytree <- addDemand(mytree, at=1, mttf=1, name="incomming power", name2="interruption")
Run the code above in your browser using DataLab