Answer:
Below is the R code for the bootstrapping in exponential distribution. The result is attached below.
####################################
rm(list=ls(all=TRUE))
set.seed(12345)
N=c(10,100,500)
Rate=0.2
B=1000
MN=SE=rep()
for(i in 1:length(N))
{
n=N[i]
X=rexp(n,rate=Rate)
EST=1/mean(X)
ESTh=rep()
for(j in 1:B)
{
Xh=rexp(n,rate=EST)
ESTh[j]=1/mean(Xh)
}
MN[i]=mean(ESTh)
SE[i]=sd(ESTh)
}
cbind(N,Rate,MN,SE)
Step-by-step explanation:
