#$Author: sinnwell $
#$Date: 2006/01/27 17:21:04 $
#$Header: /people/biostat3/sinnwell/Projects/LDpairs/Make/RCS/is.R.q,v 1.1 2006/01/27 17:21:04 sinnwell Exp $
#$Locker:  $
#$Log: is.R.q,v $
#Revision 1.1  2006/01/27 17:21:04  sinnwell
#Initial revision
#
# $Id: is.R.q,v 1.1 2006/01/27 17:21:04 sinnwell Exp $
# Jason Sinnwell and Eric Lunde
# 11/2005
# Mayo Clinic, Division of Biostatistics
# srlocal development

################ describe ##################################
# use the exact same tests for R as is.R(),
# but call it something else
# is.R() would return F in S-PLUS if they included it...
# ............ so we include it for both R and S
############################################################
# 2005-11-16: This function *used* to be usingR() and
# the above comment reflects that. It was decided to just
# put is.R() in the slocal library to parallel R's function.
############################################################
is.R <- function() {
   exists("version") && !is.null(vl <- version$language) && vl == "R"
}
