\begin{Schunk}
\begin{Sinput}
 par(mfrow=c(2, 2)) 
 x1 <- seq(-15, 15, by = 0.05) 
 mylaplace1 <- dlaplace(x1, location = 0, scale = 1) 
 plot(x1, mylaplace1, type = "l", xlab = "x", ylab = "P(x)", 
  main="Laplace, location=0, scale=1")
 x2 <- seq(0, 15, by = 0.05)
 myexp1 <- dexp(x2, rate = 1) 
 plot(x2, myexp1, type = "l", xlab = "x", ylab = "P(x)", main = "Exponential, rate=1")
 myexp2 <- 0.5*dexp(x1,rate=1)
 plot(x1, myexp2, type = "l", xlab = "x", ylab = "0.5*P(x)", main = "0.5*Exponential PDF") 
 
\end{Sinput}
\end{Schunk}
