I'm trying to fit data in Mathematica. I import data in Mathematica after using findfit function then I get some results
model1 = c + d Sin[2 \[Pi] n /T y];
f2 = FindFit[data, model1, {c, d, n, T}, y]
f1 = FindFit[data, model, {a, b, \[Omega], \[Phi]}, x]
Out [1]:= {c -> 0.0318682, d -> -0.00101215, n -> -98.6938, T -> -98.8437}
Show[Plot[Evaluate[model1 /. {f2}], {y, 0, 20}, PlotStyle -> {Red}], ListPlot[data, PlotRange -> All]]
Above result is not good so please suggest more methods to find curve fitting from data.