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)
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