Remove par(new=T) in plot.spectra.
Fix index operation on spectra if j is character.