# R Program to compute the value of
# Empirical Cumulative Distribution Function
  
# Creating a Numeric Vector
x <- seq(1, 50, by = 2)
  
# Calling ecdf() Function
y <- ecdf(x)
y

Empirical CDF 
Call: ecdf(x)
 x[1:25] =      1,      3,      5,  ...,     47,     49

# R Program to compute the value of
# Empirical Cumulative Distribution Function
  
# Creating a random vector
x <- rnorm(30)
  
# Calling ecdf() Function
y <- ecdf(x)
  
# Plot a graph
plot(y)