# NOT RUN {
sp=spc.example_spectra()
sp@header
sp <- spc.updateheader(sp,"Station", 11)
sp@header
#SpcList example
sp=spc.example_spectra()
BL=spc.makeSpcList(sp,"CAST")
BL[[1]]@header
BL[[1]] <- spc.updateheader(BL[[1]],"Station", 11)
BL[[1]]@header
# }
Run the code above in your browser using DataLab