SiSimpl<-carms.make(title="Parallel Identical components", diagram_grid=c(5,8))
SiSimpl<-carms.state(SiSimpl, prob=1, name="P1", size=7, h2w=14/20, position=c(2,3) )
SiSimpl<-carms.state(SiSimpl, prob=0, name="P2", size=7, h2w=14/20, position=c(6,3) )
SiSimpl<-carms.base(SiSimpl, 1, time_units="hours", description="Failure rate")
Run the code above in your browser using DataLab