R/kstructure_is_kspace.R

Defines functions kstructure_is_kspace

Documented in kstructure_is_kspace

### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
###
### kstructure_is_kspace.R
###
### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
###
### dependencies: library(sets)
###
### 2008-04-24: created
###

kstructure_is_kspace <- function(x) {

   ### check x
   if (!inherits(x, "kstructure")) {
      stop(sprintf("%s must be of class %s.", dQuote("x"), dQuote("kstructure")))
   }

   ### check for space
   y <- inherits(x, "kspace") || length(x)==length(kspace(x))

   ### return results
   y
}

Try the kst package in your browser

Any scripts or data that you put into this service are public.

kst documentation built on April 13, 2018, 5:06 p.m.