R/fun.zeroORone.R

In YPmodel: The Short-Term and Long-Term Hazard Ratio Model for Survival Data

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

}