# R program to calculate median of a vector
  
# Creating vector
x1 <- c(2, 3, 5, 7, 4, 8, 6)
x2 <- c(-3, -5, 6, 2, -4)
  
# Calling median() function
median(x1)
median(x2)

[1] 5
[1] -3

# R program to calculate median of a vector
  
# Creating vector
x <- c(2, 3, 5, NA, 4, NA, 6)
  
# Calling median() function
# with NA values included
median(x, na.rm = FALSE)
  
# Calling median() function
# with NA values excluded
median(x, na.rm = TRUE)

[1] NA
[1] 4