Reprocessing the existing data sets to a simple version

SetDirectory["/home/campus03/struther/Desktop/Link to Courses/2990/SET/SetRuns"]
Data=Flatten[
Table[
FileName=ToString[StringForm[ "SetData_``.csv", n]];
Import[FileName],
{n,1,662}]];
HistogramList[Data,{0.5,6.5,1}]

Runs662Data={{0.5`,1.5`,2.5`,3.5`,4.5`,5.5`,6.5`},{0,12317359,11703762,1936331,20189,16}}

The first 662 runs are
{{3, 11703762}, {2, 12317359}, {4, 1936331}, {0, 322343}, {5, 20189}, {6, 16}}

BarChart[Runs662Data[[-1]]]

BarChart[Runs662Data,BarSpacing->Tiny]

Histogram[Runs662Data]