#Mi primera grafica de asintotas Este es mi primer documento publicado en RPubs y esta es mi primera gráfica de asintotas :’D

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

## integer(0)

Fuente: elaboración propia