Diffusion + Logistic growth in one-dimensional space

SetDirectory["/Users/takasu/Library/Developer/Xcode/DerivedData/reaction_diffusion-hheuerqvwvxirkgnaxhdibufvvic/Build/Products/Debug/"]

size = 101;
data = ReadList["RD-1dim-data",{Real,Real}];
data = Partition[data,size];
Length[data]

ListPlot[data[[1]],PlotRange->{0,1.2`},Joined->True]

data[[1]]

ListPlot[data[[1]],PlotRange->{0,0.05`},Joined->True]

ListPlot[Last[data],PlotRange->{0,1.2`},Joined->True]

glist = {};
Do[
g = ListPlot[ data[[i]] ,PlotRange->{0,1.2},Joined->True];
AppendTo[glist,g],{i,1,Length[data],10}
]

Show[glist]

ListAnimate[glist]