integrate(dhurea, 0, 1, shape = 0.20) # Incorrect
integrate(dhurea, 0, 1, shape = 0.35) # struggling but okay
if (FALSE) x <- seq(0, 1, length = 501)
par(mfrow = c(2, 2))
plot(x, dhurea(x, 0.7), col = "blue", type = "l")
plot(x, dhurea(x, 1.1), col = "blue", type = "l")
plot(x, dhurea(x, 1.4), col = "blue", type = "l")
plot(x, dhurea(x, 3.0), col = "blue", type = "l")
Run the code above in your browser using DataLab