R/addHouse.R

In jto888/FaultTree1: Fault Trees for Risk and Reliability Analysis

# addHouse.R
# copyright 2015-2017, openreliability.org
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.

addHouse<-function(DF, at, prob=1, label="", name="", name2="", description="")  {

	at <- tagconnect(DF, at)

	if(label!="")  {
		if(any(DF$Name!="") || any(DF$Name2!="")) {
			stop("Cannot use label once name convention has been established.")
		}
	}
	if(any(DF$Label!="")) {
		if(name!="" || name2!="") {
			stop("Cannot use name convention once label has been established.")
		}
	}

 	tp=9

	info<-test.basic(DF, at,  display_under=NULL, tag="")
	thisID<-info[1]
	parent<-info[2]
	gp<-info[3]
	condition<-info[4]

	if(!(prob==0 || prob==1))  {stop("probability entry must be either one or zero")}

## House can only be placed under AND or INHIBIT (with Cond==1)
	parentOK<-FALSE	
	if(DF$Type[which(DF$ID==parent)]==11) {
		parentOK<-TRUE
	}else{
		if(DF$Type[which(DF$ID==parent)]==12) {	
			if(condition==1) {
				parentOK<-TRUE
			}else{
			stop("House is not the set as condition")
			}		
		}else{
		stop("House must connect to AND or INHIBIT")
		}
	}


	Dfrow<-data.frame(
		ID=	thisID	,
		GParent=	gp	,
		Tag=	""	,
		Type=	tp	,
		CFR=	-1	,
		PBF=	prob	,
		CRT=	-1	,
		MOE=	0	,
		Condition=	condition,
		Cond_Code=	0,
		EType=	0	,		
		P1=	-1	,		
		P2=	-1	,
		Collapse=	0	,
		Label=	label	,
		Name=	name	,
		Name2=	name2	,
		CParent=	at	,
		Level=	DF$Level[parent]+1	,
		Description=	description	,
		UType=	0	,
		UP1=	0	,
		UP2=	0	
	)


	DF<-rbind(DF, Dfrow)
	DF
}