R/test.ftree.R

Defines functions test.ftree

Documented in test.ftree

test.ftree<-function(DF) {
	if(!inherits(DF,"data.frame")) {
		return(FALSE)
	}else{
	if(length(names(DF))!=23)  {
		return(FALSE)
		}else{
			ftreetest<-NULL
			for(nm in 1:21) {ftreetest<-c(ftreetest,names(DF)[nm]==FT_FIELDS[nm])}
			if(!all(ftreetest)) {
				return(FALSE)
			}else{
				return(TRUE)
			}
		}
	}
}

Try the FaultTree package in your browser

Any scripts or data that you put into this service are public.

FaultTree documentation built on Aug. 26, 2023, 5:07 p.m.