Mi primera gráfica de asíntotas

Este es mi primer documento publicado en RPubs en la clase de Matemáticas I. Esta es 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