Example 1

mydata <- data.frame("ID" =c(1, 2, 3, 4, 5),
                     "HEIGHT"=c(170, 172, 180, 182, 186),
                     "weight"=c(60, 65, 70, 77, 82))

{r

mean(mydata$HEIGHT )#calculation of arithmetic mean

## [1] 178

On average everyone in the sample has 178 cm.

summary (mydata[ , -1])

##      HEIGHT        weight    
##  Min.   :170   Min.   :60.0  
##  1st Qu.:172   1st Qu.:65.0  
##  Median :180   Median :70.0  
##  Mean   :178   Mean   :70.8  
##  3rd Qu.:182   3rd Qu.:77.0  
##  Max.   :186   Max.   :82.0

mydata$BMI <-round (mydata$weight / (mydata$HEIGHT/100)^2,1)

mydata$gender <- c("F" ,"F", "M" , "M" , "M")