How to smooth a plot of defined function in R?

Question

For example, I want to plot this function y1 = function(x) 2*x/sqrt(x^2 + 1) in range (-2, 12)

But I tried using plot(y1(-2:12), type=\'l\'), th