quiero graficar una hiperbola (x^2+1) y una recta (y=-1) en R pero solo gráfica la función cuadrática no la recta. Cuando intento graficar solo la recta me aparece el siguiente error:
`Error in plot(fun, from = -5, to = 5, ylim = c(-8, 8), col = "red") :
objeto 'fun' no encontrado`
El código que utilizo es el siguiente:
'fun <- function(x){x^2+1}
fun2 <- function(y){y=-1}
plot(fun,from=-5,to=5,ylim=c(-8,8),col="red")
par(new=TRUE)
plot(fun2,from=-5,to=5,ylim=c(-8,8),col="red")'
Lo que quiero lograr es que en una misma gráfica aparezca la hipérbola y la recta.