x <- seq(-pi, pi, 0.1)
plot(x, cos(x))

#LEZIONE 1, VEDI ARRAY, FUNZIONI ,, VEDI LEZIONE 2 E 3. 

#  %>%, vedi cosa serve