Untitled

x<-seq(0,1,by =0.01)
f<-x^5
g<- 10*(x^3)*(1-x)^2 + 5*(x^4)*(1-x) + x^5
h<- 5*(x^4)*(1-x) + x^5

plot(x, f, type = "l", col = "blue", ylim = c(0, 1), ylab = "Funciones", xlab = "x")

lines(x, g, col = "red")
lines(x, h, col = "green")

# Agregar leyenda
legend("topright", legend = c("f(x) ", "g(x)", "h(x)"), col = c("blue", "red", "green"), lty = 1)