Create spectrum.R

Developed by Jakub