x_bar_data = c( 3.4, 1.4, 5.6, 2.6, 1.2, 2.0, 8.2, 5.8, 7.8, 4.0, 5.0, 10.2, 2.2, 0.8, 1.0, 1.6, 7.8, 3.8, 2.0 )

r_data = c( 6, 3, 24, 1, 6, 3, 1, 6, 2, 6, 5, 9, 7, 8, 2, 4, 3, 7, 2 )