Still not sure of your intent. Also assumed that the third condition was 0.95 >
theta <- seq(-0.05,0.95,.01)
eq <- function(x) dplyr::case_when(
x <= -0.05 ~ 0,
x > 0.05 & x <= 0.95 ~ x + 0.05,
x > 0.95 ~ 1
)
plot(eq(theta), type = 'l')

plot(eq(sample(theta,500, replace = TRUE)), type = 'l')
