ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
times = {6,18,30,39,46,53,60,74,93};
weights = {1,4,9,17,26,42,62,71,74};
datapoints = Map[Thread,Transpose[{times,weights}]];
logdatapoints = Map[Thread,Transpose[{times,Log[weights]}]];
G[t_]:= Fit[Drop[Drop[logdatapoints,-2],1],{1,t},t];
W[t_]:= E^(Coefficient[G[t],t,0] +t Coefficient[G[t],t,1]);
uplot = Show[{ListPlot[logdatapoints,PlotRange->{{0,100},{0,4.4}},
	AxesOrigin->{0,0},PlotLabel->
	"(a) Log of weight of maize (gms) versus time (days)"],
	Plot[G[t],{t,0,63.46},PlotStyle->Dashing[{0.001,0.01}]]}];
lplot = Show[{ListPlot[datapoints,PlotRange->{{0,100},{0,75}},
	AxesOrigin->{0,0},PlotLabel->
	"(b) Weight of maize (gms) versus time (days)"],
	Plot[W[t],{t,0,62.2},PlotStyle->Dashing[{0.001,0.01}]]}];
Show[GraphicsArray[{{uplot},{lplot}}],PlotLabel->"Figure 29.1"]