CHAPTER 1

1

I first plot the regression of young fledged on clutch size. Some trial and error is usually needed to get graphs looking neat. (See what happens from the default values with ListPlot[data].)

data={{4,3.00},{5,3.50},{6,(3.00+3.75)/2},{7,4.25},
	{8,(3.75+4.50)/2},{9,5.00},{10,4.50}};

ListPlot[data,
	PlotRange->{{3,10},{2,5}},
	AxesOrigin->{3,2}]

I now find the average number of young fledged for the three genotypes:

{(3.00+3.75+4.50)/3,(3.50+4.25+5.00)/3,
	(3.00+3.75+4.50)/3}