powered by
is.summary_generic_spct(x) is.summary_cps_spct(x) is.summary_source_spct(x) is.summary_response_spct(x) is.summary_filter_spct(x) is.summary_reflector_spct(x) is.summary_object_spct(x) is.summary_chroma_spct(x) is.any_summary_spct(x)
TRUE
FALSE
sm <- summary(sun.spct) is.summary_source_spct(sm)
Run the code above in your browser using DataLab