plot(dnorm,xlim=c(-6,6), ylim=c(0,4), col="blue")

f = function(x) { 1/2 * exp(-abs(x)) }

Kf = function(x) { 8 * f(x) }

plot(Kf, xlim=c(-6,6), add=T, col="red")