as.cps_spct function

Coerce to a spectrum