R/speclib_fwhm.R

In hsdar: Manage, Analyse and Simulate Hyperspectral Data

setReplaceMethod("fwhm", signature(object = "Speclib", value = "numeric"), 
                 function(object, value)
{
  object@fwhm <- value
  return(object)
}
)

setMethod("fwhm", signature(object = "Speclib"), 
          function(object)
  return(object@fwhm)
)