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)
#-----------------------------------------------------------------#
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.