R/fun.zeroORone.R

Defines functions fun.zeroORone

Documented in fun.zeroORone

fun.zeroORone <-
function(Result)
########################################################
#fun.zeroORone(matrix)
#######################################################
# version 0.1
# Jul 19, 2012
# Junlong Sun
# return [Output]
#######################################################
# Jul 19, 2012 - v0.1 Create
#######################################################
{

Output <- 1
if(Result=='FALSE'){lr <- 0}

#-----------------------------------------------------------------#
## Return results
#-----------------------------------------------------------------#
	return(Output)
#-----------------------------------------------------------------#

}
junlongsun/YPmodel documentation built on Oct. 25, 2020, 2:26 a.m.