par(mfrow=c(1,2))
t <- seq(0,3,length.out=100)
s <- seq(0,3,length.out=100)
plot(t,exp(2*t),type = "l",ylim = c(0,100), col="blue", lwd=2)
plot(s,1/(s-2), type = "l",ylim = c(1,30), col="blue", lwd=2)+abline(v=2, lty =3, col="red", lwd=2)integer(0)
mtext("Laplace Transformation", side = 3, line = -3, outer = TRUE)

