collapse = TRUE,
  comment  = "#>",
  dev      = 'svg')

esercizio 1

n <- 180
x_t <- c(1:180)