rstudio

plot(0,
     xlim = c(0, 10),
     ylim = c(0, 1),
     type = "n",
     ylab = "f(x)",
     xlab = "x",
     main = "funkcja gestosci"
)



integrate(function(x) dexp(x, 1/2), lower = 0, upper = 1)$value + integrate(function(x) dexp(x, 1/2), lower = 3, upper = 10)$value

curve(dexp(x, 1/2), xlim=c(0, 1), add = TRUE, lwd = 2)
curve(dexp(x, 1/2), xlim=c(3, 10), add = TRUE, lwd = 2)