I need to plot moments of a distribution as a function of bin size to show whether or not the tails of this data set are Gaussian. My data is in [pastebin.com/nzCs5BwE.][1]
Here is how I've plotted my histograms (it is the distribution of the means of my data) and found the moments, first fitting a function to the data :
data1 = Import["https://pastebin.com/raw/nzCs5BwE", "Table"];
data2 = Transpose[data1];
data3 = Table[Abs[data2[[All, i]]], {i, 1, 74}]
means = Table[Mean[data3[[All, i]]], {i, 1, 73}];
stdevs = Table[StandardDeviation[data3[[All, i]]], {i, 1, 73}];
meanofmeans = Mean[means]
stdevofmeans = StandardDeviation[means]
pe = Histogram[means, {25, 40, 2}, "PDF"];
ne = Plot[
PDF[NormalDistribution[meanofmeans, stdevofmeans], x], {x, 0, 60},
PlotRange -> All];
Show[pe, ne]
finddistmeans = FindDistribution[means]
fitdistributionmeans =
Plot[{PDF[finddistmeans, x]}, {x, 0, 70}, PlotRange -> All];
Show[pe, fitdistributionmeans]
Moment[finddistmeans, 3]
Moment[finddistmeans, 4]
I really don't know how to go about plotting all of the moments as a function of bin sizes? anything is helpful, thanks in advance!
Homework
tag to the question. $\endgroup$