x <- seq(-4, 4, by = 0.01)
plot(x, dTpdOu(x = x, x0 = 3, t = 0.1, alpha = 1, mu = -1, sigma = 1),
type = "l", ylim = c(0, 1.5), xlab = "x", ylab = "Density",
col = rainbow(20)[1])
for (i in 2:20) {
lines(x, dTpdOu(x = x, x0 = 3, t = i / 10, alpha = 1, mu = -1, sigma = 1),
col = rainbow(20)[i])
}
Run the code above in your browser using DataLab