R/utils.r

Defines functions is.int

is.int <- function(x)
{
  if (is.numeric(x))
  {
    if (x-as.integer(x) == 0)
      return( TRUE )
    else
      return( FALSE )
  }
  else
    return( FALSE )
}
wrathematics/tfca documentation built on May 4, 2019, 10:54 a.m.