data := Table[{x,1+0.005*Sin[3*(x-1414.5)]+0.001*Sin[20*(x-1414.5)]},{x,1400,1420,0.03}];

data2 := Table[{x,1+0.001*Sin[20*(x-1414.5)]},{x,1400,1420,0.03}];

ListLinePlot[{data,data2}]

Map[Mean,{data,data2}]

Map[Skewness,{data,data2}]

Map[QuartileSkewness,{data,data2}]

Moment[data,3]

ListLogPlot[{Abs[Fourier[data[[All,2]]]]^2,Abs[Fourier[data2[[All,2]]]]^2},PlotRange->{{0,100},All}]