spectral analysis code snippets in r