Mi primera gráfica de asíntotas

Este es mi primer documento publucado en en Rpubs junto a mi primera grafica de asintotas

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