Example 8: Confidence Intervals

by Zavan Karian

> restart: with(plots,display): libname:="C:/mylib/statistics",libname: with(stat):

> ListOfSamples := [seq(NormalS(40,12,5), i=1..50)]:

> CIVarUnknown := ConfIntMean(ListOfSamples, 80):

> #interface(plotdevice=postscript, plotoutput=Fig9a);

> ConfIntPlot(CIVarUnknown, 40);

> CIVarKnown := ConfIntMean(ListOfSamples, 80, 12):

> #interface(plotdevice=postscript, plotoutput=Fig9b);

> ConfIntPlot(CIVarKnown, 40);