Jeff Walker walkerjeffd

## is_regular.R
is.regular <- function(x) {
  # returns TRUE if vector x of POSIXct datetimes is continuous and regular
  # by checking if there are more than one unique difftime between each row
  x.difftime <- difftime(x[2:length(x)], x[1:(length(x)-1)], units='secs')
  if (length(levels(factor(x.difftime))) > 1) {
    return (FALSE)
  } else {
    return (TRUE)
  }
}

## README.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                walkerjeffd
                / README.md
            
            
              Created
              January 22, 2016 20:55
            
              
                transition test
              
          
    Built with blockbuilder.org
forked from bletcher's block: transition test

  
## README.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                walkerjeffd
                / README.md
            
            
              Created
              January 22, 2016 21:00
            
              
                transition test 2
              
          
    Built with blockbuilder.org
forked from bletcher's block: transition test
forked from walkerjeffd's block: transition test 2

  
## .block
license: gpl-3.0
height: 200

## .block
license: gpl-3.0

## .block
license: gpl-3.0

## README.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                walkerjeffd
                / README.md
            
            
              Created
              May 22, 2016 19:32
            
              
                Force Simulation Between Targets
              
          
    Built with blockbuilder.org

  
## .block
license: mit

## .block
license: mit

## .block
license: mit
	is.regular <- function(x) {
	# returns TRUE if vector x of POSIXct datetimes is continuous and regular
	# by checking if there are more than one unique difftime between each row
	x.difftime <- difftime(x[2:length(x)], x[1:(length(x)-1)], units='secs')
	if (length(levels(factor(x.difftime))) > 1) {
	return (FALSE)
	} else {
	return (TRUE)
	}
	}