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)
#-----------------------------------------------------------------#

}

Try the YPmodel package in your browser

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

YPmodel documentation built on Oct. 23, 2020, 5:15 p.m.