Question

Write R code:

The National Institute of Diabetes and Digestive and Kidney Diseases conducted a study on 768 adult female Pima Indians living near Phoenix. One variable that was collected is bmi (body mass index) which represents weight in kg/ (height in meters squared). The pima data set is available in the Faraway library. Compute the mean, 0.05 trimmed mean, 0.10 trimmed mean, 0.05 winsorized mean, and 0.10 winsorized mean.
Hint: #need psych library. The variable of interest is pima$bmi.

library(psych)

Answer 1

I will enter the R codes along with output below. I will highlight the output using bold.

> library(psych)
> library(faraway)
> data(pima) # calling the data
> View(pima) # to view the data
> x<-pima$bmi
> # Computing the mean
> mean(x)
[1] 31.99258
> # computing 0.05 trimmed mean
> mean(x,trim=0.05)
[1] 32.05564
> # computing 0.10 trimmed mean
> mean(x,trim=0.10)
[1] 31.95925
> # computing 0.05 winsorized mean
> winsor.mean(x,trim=0.05,na.rm=T)
[1] 32.1586
> # computing 0.10 winsorized mean
> winsor.mean(x,trim=0.10,na.rm=T)
[1] 32.07617