# R program to find the difference
# between each pair of elements of a vector
  
# Creating a vector
x1 <- c(8, 2, 5, 4, 9, 6, 54, 18)
x2 <- c(1:10)
x3 <- c(-1:-8)
  
# Calling diff() function
diff(x1)
diff(x2)
diff(x3)

[1]  -6   3  -1   5  -3  48 -36
[1] 1 1 1 1 1 1 1 1 1
[1] -1 -1 -1 -1 -1 -1 -1

# R program to find the difference
# between each pair of elements of a vector
  
# Creating a vector
x1 <- c(8, 2, 5, 4, 9, 6, 54, 18)
x2 <- c(1:10)
  
# Calling diff() function
diff(x1, lag = 2, differences = 1)
diff(x2, lag = 1, differences = 2)

[1] -3  2  4  2 45 12
[1] 0 0 0 0 0 0 0 0