
Function to set by reference the "Afr.type" attribute of an existing filter_spct or object_spct object
setAfrType(x, Afr.type = c("total", "internal"))
a filter_spct or an object_spct object
a character string, either "total" or "internal"
x
Other Afr attribute functions: getAfrType
# NOT RUN {
my.spct <- polyester.spct
getAfrType(my.spct)
setAfrType(my.spct, "internal")
getAfrType(my.spct)
# }
Run the code above in your browser using DataLab