86180, 86180, 86270, 86160, 86190, 86160, 86160, 86130, 86160, 86250, 86200, 86180, 86220, 86200, 86240, 86270, 86300, 86300, 86480, 86770, 86790, 86750, 86710, 86660, 86620, 86640, 86620, 86590, 86540, 86470, 86480, 86520, 86340, 85870, 85920, 86080, 85930, 85950, 85660, 85830, 85920, 85900, 85930, 85990, 85860, 86040, 86210, 86260, 86460, 86270, 86310, 86240, 86310, 86350, 86330, 86060, 86140, 86200, 86080, 85830, 85700, 85680, 85610, 85670, 85790, 85770, 85730, 85550, 85390, 85380, 85620, 85630, 85640, 85670, 85680, 85740, 85740, 85660, 85590, 85880, 85890, 85840, 85840, 85770, 85570, 85510, 85390, 85380, 85400, 85330, 85250, 85280, 85200, 85390, 85440, 85180, 85330, 85200, 85260, 85370, 85370, 85460, 85410, 85490, 85340, 85180, 85140, 85160, 85220, 85440, 85490, 85360, 85300, 85330, 85270, 85270, 85130, 84920, 85050, 84860, 85030, 85090, 84890, 84950, 85220, 84950, 84710, 84740, 85070, 84940, 84840

ggplot(someData, aes(x,y)) +
  geom_point() +
  geom_smooth(method = "lm", formula = y ~ x + sin(x/4.7))

fftin <- arrange(someData, x)$y
fftres <- fft(fftin)
barplot(Mod(fftres))