R Notebook

# Binomial Distribution in PDF
n <- 10
p <- 0.5
x <- 0:n
pmf <- dbinom(x, size = n, prob = p)  # Probability Mass Function values

# Bar plot
barplot(pmf, names.arg = x, main = "Binomial PDF", xlab = "x", ylab = "Probability", col = "green")

#Binomial Distribution in CDF
n<-10
p<-0.5
x<-0:n
pmf<-pbinom(x,size = n,prob = p)
plot(x,pmf,type="s",main = "Binomial CDF",xlab="x",ylab = "CP")

#Possion Distribution
n<-10
x<-0:15
pmf<-dpois(x,n)
barplot(pmf,names.arg = x,main = "Possion PDF",xlab="x",ylab = "probability",col = "green")

#Possion Distribution of CDF
n<-10
x<-0:15
pmf<-ppois(x,n)
plot(x,pmf,type="s",main = "Possion CDF",xlab="x",ylab = "CP")

#Expoential Distribution
rate<-1.5
x<-seq(0,5,by=0.1)
pdf<-dexp(x,rate)
plot(x,pdf,type = "l",main = "Expoential PDF",xlab = "x",ylab = "Density",col="blue")

#Expoential Distribution
rate<-1.5
x<-seq(0,5,by=0.1)
pdf<-pexp(x,rate)
plot(x,pdf,type = "l",main = "Expoential CDF",xlab = "x",ylab = "CP",col="skyblue")

#Uniform Distribution
x<-seq(0,1,by=0.01)
pdf<-dunif(x,min = 0,max = 1)
plot(x,pdf,type = "l",main = "Uniform PDF",xlab = "x",ylab = "Density",col="blue")

#Uniform Distribution
x<-seq(0,1,by=0.01)
pdf<-punif(x,min = 0,max = 1)
plot(x,pdf,type = "l",main = "Uniform CDF",xlab = "x",ylab = "CP",col="blue")

#Normal Distribution
mean<-0
sd<-1
x<-seq(-4,4,by=0.1)
pdf<-dnorm(x,mean=,mean,sd=sd)
plot(x,pdf,type = "l",main = "Normal pdf",xlab = "x",ylab = "CP",col="blue")