ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
pairs = {{0,0},{1,167/256},{2,215/256},{3,238/256},{4,244/256},
		  {5,247/256},{6,253/256},{7,254/256},{8,255/256},{9,256/256}};
plotd  = ListPlot[pairs,
					AxesLabel->{"k","F"},
					AxesStyle->Dashing[{0.01,0.01}],
					Ticks -> {Table[i,{i,9}],{0,0.25,0.5,0.75,1}},
					PlotRange -> {{-0.2,9.2},{-0.025,1.05}},
					AxesOrigin->{0,0},
PlotLabel->"Proportion deceased at time k"];
Show[GraphicsArray[{{plotd}}],PlotLabel->"Figure 5.3"]