r – Error in rlaplace(n, 0, 1) : could not find function “rlaplace”

I’ve written the following code in R to compute the power a test:

n=10
delta <- vector()
for (i in 1:10000){
x <- rnorm(n, 100, 10)
x <- sort(x)
z <- pnorm(x, mean(x), sd(x))
delta(i) <- sum(abs(z-seq(1,n)/n))/sum(pmax(z, seq(1,n)/n))
}
q=quantile(delta, 1-0.05)
#------------
pow=0;
delta <- vector()
for (i in 1:10000){
x <- rlaplace(n, 0,1)
x <- sort(x)
z <- pnorm(x, mean(x), sd(x))
delta(i) <- sum(abs(z-seq(1,n)/n))/sum(pmax(z, seq(1,n)/n))
if (delta(i)>q) pow=pow+1
}
power=pow/10000
print(power)

But R shows the following error:

Error in rlaplace(n, 0, 1) : could not find function "rlaplace"

I was wondering if someone could help me about it. Thanks in advance.