Needs["Statistics`DescriptiveStatistics`"]

Needs["Statistics`DataManipulation`"]

Needs["Statistics`HypothesisTests`"]

Needs["Statistics`ContinuousDistributions`"]

Weight={
	{1 , 23.1000004 },{2 , 21.2999992 },{3 , 22 },{4 , 21.3999996 },{5 , 21.7999992 },{6 , 20.6000004 },{7 , 20.1000004 },{8 , 21.3999996 },{9 , 21.5 },{10 , 20.2000008 },{11 , 20.2999992 },{12 , 20.1000004 },{13 , 21.7000008 },{14 , 21 },{15 , 21.6000004 },{16 , 21.3999996 },{17 , 20.3999996 },{18 , 22.7999992 },{19 , 21.1000004 },{20 , 20.7000008 },{21 , 21.6000004 },{22 , 22.3999996 },{23 , 21.2999992 },{24 , 21.1000004 },{25 , 20.1000004 },{26 , 21.2000008 },{27 , 19.8999996 },{28 , 21.1000004 },{29 , 21.6000004 },{30 , 21.2999992 },
		{31 , 24.2999992 }
		};

\(MeanTest[Column[Weight, 2], 23\ , 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
      KnownVariance\  -> \ Variance[Column[Weight, 2]], \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TwoSided -> False, \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SignificanceLevel -> 0.01, 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FullReport\  -> \ True]\)

\(MeanTest[Column[Weight, 2], 23\ , 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
      KnownVariance\  -> \ Variance[Column[Weight, 2]], \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TwoSided -> True, \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SignificanceLevel -> 0.01, 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FullReport\  -> \ True]\)

Sales={
	{4813.5 , 2582.8000488 }, {4544.7998047 , 12911 }, {
              3394.8999023 , 8022 }, {2879.3999023 , 2843 }, {3786.6000977
               , 79179 }, {3516.3999023 , 23512 }, {106147 , 21339.199219
               }, {6453.7998047 , 19521 }, {6412.1000977 , 16900.199219
               }, {3281 , 12473 }, {3192.3999023 , 10982 }, {38691 , 
              9922.599609 }, {38420 , 8295.700195 }, {22071 , 6106 }, {
              20847 , 5880.3999023 }, {19168.5 , 5776.2998047 }, {18739
               , 4449 }, {17269 , 3858.6000977 }, {14343 , 3792.1000977
               }, {13718.799805 , 3128.6999512 }, {12023.5 , 3109 }, {
              11015.200195 , 3075 }, {10557 , 2725 }, {9942.700195 , 
              2684.3999023 }, {9833 , 2670.8000488 }, {9610 , 2596.3000488
               }, {9588 , 39689 }, {8723 , 3279.1999512 }, {8588.400391
               , 2771.8999023 }, {8587.5 , 25054 }, {8545 , 18494 }, {
              8071 , 3590.1000977 }, {7094.7998047 , 12995.5 }, {
              6277.6000977 , 10526 }, {5559 , 6068.6000977 }, {
              5522.7998047 , 6036.7998047 }, {5407.3999023 , 5519.3999023
               }, {5342.7001953 , 5262.3999023 }
			};

\(MeanDifferenceTest[Column[Sales, 1], Column[Sales, 2], 0, \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
      KnownVariance\  -> 
        \ {Variance[Column[Sales, 1]], Variance[Column[Sales, 2]]\ }, \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TwoSided -> True, \ 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SignificanceLevel -> 0.1, 

      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FullReport\  -> \ True]\)