R/Is.Numeric.R

In VGAMextra: Additions and Extensions of the 'VGAM' Package

##########################################################################
# These functions are
# Copyright (C) 2014-2020 V. Miranda & T. Yee
# Auckland University of Technology & University of Auckland
# All rights reserved.


Is.Numeric <- function(x, isInteger  = FALSE, 
                       length.arg = NULL, 
                       Nnegative  = NULL)  {
  
  if ( all( is.numeric(x) )  &&
       ( if ( isInteger ) all( x%%1 == 0 )  else TRUE )   &&
       ( if ( length( length.arg ) ) 
         (length(x) == length.arg )  else TRUE )  &&
       ( if ( length(Nnegative) && is.logical(Nnegative) ) 
         if (Nnegative) all(x >= 0)  else all(x < 0) else TRUE)) 
    TRUE else FALSE
}