# R Program to perform
# Cumulative Density Analysis
  
# Calling pt() Function
pt(2, 10)
pt(.542, 15)

[1] 0.963306
[1] 0.7021105

# R Program to perform
# Cumulative Density Analysis
  
# Creating a vector
x <- seq(1, 10, by = 1)
  
# Calling pt() Function
y <- pt(x, 2)
  
# Plotting probability distribution graph
plot(x, y, type ="l")