## load library (is also done automatically by importSingleSpectrum)
library(readBrukerFlexData);
## get examples directory
exampleDirectory <- system.file("Examples", package="readBrukerFlexData");
## read example spectrum
s <- importSingleSpectrum(file.path(exampleDirectory,
"2010_05_19_Gibb_C8_A1/0_A1/1/1SLin/fid"));
## show some details
s;
## plot spectrum
plot(s);Run the code above in your browser using DataLab