Write a R program for calculating cumulative sums, and products minima maxima and calculus.

x1 <- c(2, 4, 5, 7) 
x2 <- c(2.4, 5.6, 3.4)
print(cumsum(x1))
 print(cumsum(x2))
x1 <- c(2, 4, 5, 7)
 x2 <- c(2.4, 5.6, 3.4)
print(cumprod(x1))
 print(cumprod(x2))
x1 <- c(3, 6, 4, 2, 6, 7)
x2 <- c(-4, 6, 3)
print(cummin(x1))
 print(cummin(x2))
x1 <- c(3, 6, 4, 2, 6, 7)
 x2 <- c(-4, 6, 3)
print(cummax(x1)) 
print(cummax(x2))