R/special_spd.R

Defines functions spd.geometry

## SOME SPECIAL FUNCTIONS ON SPD 
#  (00) spd.geometry : return the geometry type for all functions below



# (00) spd.geometry -------------------------------------------------------
#' @keywords internal
#' @noRd
spd.geometry <- function(geometry){
  name.all = tolower(c("AIRM","LERM","Jeffrey","Stein"))
  name.tgt = tolower(geometry)
  
  return(match.arg(name.tgt, name.all))
}

Try the Riemann package in your browser

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

Riemann documentation built on June 20, 2021, 5:07 p.m.