R/speclib_id.R

In hsdar: Manage, Analyse and Simulate Hyperspectral Data

Defines functions idSpeclib

Documented in idSpeclib

idSpeclib <- function(x)
{
if (!is.speclib(x))
  stop("Class of x must be Speclib")
ids <- x@ID

return(if (any(c(length(x@ID) != nspectra(x), anyDuplicated(ids)))) c(1:nspectra(x)) else ids)
}

"idSpeclib<-" <- function(x, value)
{
  xx <- x
  xx@ID <- value
  x <- xx
}

Try the hsdar package in your browser