# NOT RUN {
x=spc.example_spectra()
fn <- tempfile()
spc.export.text(x,filename=fn)
aa=spc.import.text(fn)
dev.new()
spc.plot(aa)
#Export the SpcHeader object
fn2 <- tempfile()
spc.export.text(x@header, filename=fn2)
hdr=spc.import.text(fn2)
class(hdr)
# }
Run the code above in your browser using DataLab