Mi primera gráfica de asíntotas

Este es mi primer documento publicado en Rpubs junto con mi primera gráfica de asíntotas

x<-seq(-5,5,0.1)
gx<-(2*x^2)/(x^2-4)
plot(x,gx, type="o", col = "blue") + abline(h = 1, v = c(-2,2), col = "red")

## integer(0)

Fuente:elaboración propia