The following data give sample means and standard deviations, each based on n- 6 observations of...
The following data give sample means and standard deviations, each based on n- 6 observations of the refractive index of fiber-optic cable. Construct a control chart and comment on its appearance. Da xbar xbar 1.3 97.38 0.88 96.85 1.43 96.64 1.59 96.87 1.52 96.521.27 7 96.081.16 96.480.79 96.63 1.48 0.8 97.221.42 96.55 1.65 13 97.02 95.55 15 96.29 96.8 96.01 18 95.39 19 96.58 96.43 21 97.06 98.34 23 96.42 24 95.99 1.28 1.14 1.37 1.4 1.58 0.98 1.21 0.75 1.34 1.6 1.22 1.18 95.47 14 16 17 20 10 96.5 12 The data are in the Fiber Optic .csw file. Download the csv file and read it in with: df く-read .csv (file.choose ( )) A. Find A -X using the code below muhat <- mean (dfSxbar) B. Find LCL and UCL using the code below sbar <- mean (df$s) An <- ??? (consult notes) LCL <- muhat-An sbar UCL <- muhat An sbar