R/typeof.R

In gpuRcore/gpuRclblas: clBLAS Functions for R Objects

#' @export
setMethod('typeof', signature(x="amdMatrix"),
          function(x) {
            switch(class(x),
                   "iamdMatrix" = "integer",
                   "famdMatrix" = "float",
                   "damdMatrix" = "double",
                   stop("unrecognized class"))
          })