powered by
is.generic_mspct(x) is.raw_mspct(x) is.cps_mspct(x) is.source_mspct(x) is.response_mspct(x) is.filter_mspct(x) is.reflector_mspct(x) is.object_mspct(x) is.chroma_mspct(x) is.any_mspct(x)
TRUE
FALSE
my.mspct <- filter_mspct(list(polyester.spct, yellow_gel.spct)) is.any_mspct(my.mspct) is.filter_mspct(my.mspct) is.source_mspct(my.mspct)
Run the code above in your browser using DataLab