# R program to calculate
# Arithmetic mean of a vector
  
# Creating a numeric vector
x1 <- c(1, 2, 3, 4, 5, 6)
x2 <-c(1.2, 2.3, 3.4, 4.5)
x3 <- c(-1, -2, -3, -4, -5, -6)
  
# Calling mean() function
mean(x1)
mean(x2)
mean(x3)

[1] 3.5
[1] 2.85
[1] -3.5

# R program to calculate
# Arithmetic mean of a vector
  
# Creating a numeric vector
x1 <- c(1, 2, 3, NA, 5, NA, NA)
  
# Calling mean() function
# including NA values
mean(x1, na.rm = FALSE)
  
# Calling mean() function
# excluding NA values
mean(x1, na.rm = TRUE)

[1] NA
[1] 2.75