### R代码来自Vignette Source'Camera.rnw'########################################################## ###代码块数字1：eicpspec1 #############################################################<-xcmsset（file，method =“ centwave”，ppm = 30，peakwidth = c（5,10））a <-xsannotate（xs）an <-groupfwhm（an）” ploteics（an，pspec = 2，maxlabel = 5）############################################################# ###代码块数字2：pspec1 ############################################################