# Apenas um teste para R connect

x <- seq(0, 2*pi, length.out = 50)
plot(x, sin(x))