In: Statistics and Probability
(Use R)
For each of 31 health dogs, a veterinarian measured the glucose concentration in the anterior chamber of the right eye and also in the blood serum. The following data are the anterior chamber glucose measurements expressed as a percentage of the blood glucose. 81, 85, 93, 93, 99, 76, 75, 84, 78, 84, 81, 82, 89,81, 96, 82, 74, 70, 84, 86, 80, 70, 131, 75, 88, 102, 115, 89, 82, 79, 106. (A) Construct a histogram. Include a title and label the axes. (B) Determine whether the distribution is right skewed, left skewed, or symmetric. (C) Find the mean, variance, and the standard deviation of the chamber glucose measurements.
R code-
x=c( 81, 85, 93, 93, 99, 76, 75, 84, 78, 84, 81, 82, 89,81, 96, 82, 74, 70, 84, 86, 80, 70, 131, 75, 88, 102, 115, 89, 82, 79, 106)
hist(x, xlab = 'Glucose Concentration in %',
main = 'Histogram of % of blood glucose')
cat("From the plot we can see that tail is decreasing towards the right hand side hence this data is right skewed.")
cat("This is mean of chamber glucose measurements: ") ; print(mean(x))
cat("This is variance of chamber glucose measurements: ") ; print(var(x))
cat("This is standard deviation of chamber glucose measurements: ") ; print(sd(x))