data={228,2357,12750,26661,372331,2217441,6748400,17410435,5171926,1697339,1307865,200054,157086};

data={{1,228},{2,2357},{3,12750},{4,26661},{5,372331},{6,2217441},{7,6748400},{8,17410435},{9,5171926},{10,1697339},{11,1307865},{12,200054},{13,157086}};

Export[" MalariaData.tsv",data,"TSV"]

ListPlot[{data},Joined->True]

expdata={228,2357,12750,26661,372331,2217441,6748400};

ListPlot[expdata,PlotJoined->True]
ListPlot[Log[expdata],PlotJoined->True]

Fit[Log[expdata], {1,n},n]

ListPlot[{Table[4.00697872092928` +1.7126465016051178` n,{n,1,7}],Log[expdata]},PlotJoined->True]

Exp[4.00697872092928]*Exp[1.7126465016051178]^ n

P(n)=54.98050791815219` (5.543613262483523^n)

Growth factor is a=5.54 (as opposed to the value of 8 that we might expect based on other measurements)