ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
cumulative = {0,0,0,
			  9/489,14/489,42/489,87/489,
			  252/489,342/489,460/489,477/489,
			  486/489,486/489,487/489,1};
datapoints = {{0,0},{1/60,0},{2/60,0},{3/60,0},
			  {4/60,9/489},{5/60,14/489},{6/60,42/489},{7/60,87/489},
			  {8/60,252/489},{9/60,342/489},{10/60,460/489},{11/60,477/489},
			  {12/60,486/489},{13/60,486/489},{14/60,487/489},{15/60,1}};
correcteddatapoints = datapoints+Join[{{0,0}},Table[{1/120,0},{k,1,15}]];
density = {0,0,0,
			  9/489,5/489,28/489,45/489,
			  165/489,90/489,118/489,17/489,
			  9/489,0,1/489,2/489};

Show[GraphicsArray[{{ListPlot[density,
				PlotLabel->"(a) Discrete p.d.f",
				AxesLabel->{"k"," "}]},
	{ListPlot[cumulative,
				PlotLabel->"(b) Discrete c.d.f",
				AxesLabel->{"k"," "}]}}],PlotLabel->
	"               Figure 6.1\nLeaf thickness in D. linearifolia"]