Stochastic logistic process: Quasi-stationary distribution

SetDirectory["/Users/takasu/Library/Developer/Xcode/DerivedData/logistic_models-bgcjevlcrpigywgzsjhvyjrvbagx/Build/Products/Development/"]

data = ReadList["data-QS",Number, RecordLists->True];
len = Length[data]
max = Max[data]
dataT=Transpose[data];
lenT = Length[Transpose[data]];

Min[dataT]
maxData=Max[dataT]

Histogram[dataT[[1]],{0,maxData,1},"PDF",PlotRange->{0,1}]

Histogram[dataT[[10]],{0,maxData,1},"PDF",PlotRange->{0,1}]

Histogram[dataT[[50]],{0,maxData,1},"PDF",PlotRange->{0,1}]

glist={};
Do[
g=Histogram[dataT[[i]],{0,maxData,1},"PDF",PlotRange->{0,1}];
AppendTo[glist,g],{i,1,Length[dataT]}
]

ListAnimate[glist]